Как разделить программу на модули?

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Русская буква "А" в заглавном и строчном видах.
  Da = ['А', 'а'];
  //Буква "Б" в заглавном и строчном видах.
  Db = ['Б', 'б'];
var
  S : String;
  i, Len, LenW, LenWMin, CntW, CntWB, CntWEq, CntA, CntA1 : Integer;
begin
  //Исходный текст берём из Мемо1.
  S := Memo1.Text;
 
  //Решение задачи.
  Len := Length(S);
  LenW := 0; //Длина очередного слова.
  LenWMin := Len; //Начальная длина самого короткого слова.
  CntW := 0; //Количество слов в тексте.
  CntWB := 0; //Количество слов, начинающихся с буквы "Б".
  CntWEq := 0; //Количество слов, начинающихся и заканчивающихся одним и тем же символом.
  CntA := 0; //Количество букв А в последнем слове.
  CntA1 := 0; //Количество букв А в очередном слове.
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Подсчёт длины очередного слова.
    Inc(LenW);
    //Подсчёт букв "А" в очередном слове.
    if S[i] in Da then Inc(CntA1);
    //Отслеживаем конец слова и выполняем ряд подсчётов.
    if (i = Len) or (S[i + 1] in D) then begin
      //Задача А.
      Inc(CntW);
      //Задача Б.
      CntA := CntA1;
      CntA1 := 0; //Обнуляем сведения о количестве букв "А" в очередном слове.
      //Задача В.
      if S[i - LenW + 1] in Db then Inc(CntWB);
      //Задача Г.
      if S[i - LenW + 1] = S[i] then Inc(CntWEq);
      //Задача Д.
      if LenW < LenWMin then LenWMin := LenW;
      //Обнуление сведений о длине очередного слова.
      LenW := 0;
    end;
  end;
 
  //Ответ.
  Memo2.Clear;
  Memo2.Lines.Add('А. Количество слов в тексте: ' + IntToStr(CntW));
  Memo2.Lines.Add('Б. Количество букв "А" и "а" в последнем слове: ' + IntToStr(CntA));
  Memo2.Lines.Add('В. Количество слов, начинающихся с букв "Б" или "б": ' + IntToStr(CntWB));
  Memo2.Lines.Add('Г. Количество слов в которых совпадает первый и последний символы: ' + IntToStr(CntWEq));
  Memo2.Lines.Add('Д. Длина самого короткого слова: ' + IntToStr(LenWMin));
end;

var
  S : String;
  i, Len, LenW, LenWMin, CntW, CntWB, CntWEq, CntA, CntA1 : Integer;

unit MyUnit;
 
interface
 
const
  r = 150;
  st = 'Строка из моего MyUnit и в ней константа r = ';
var
  S : String;
  i, Len, LenW, LenWMin, CntW, CntWB, CntWEq, CntA, CntA1 : Integer;
 
implementation
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, MyUnit;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    XPManifest1: TXPManifest;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= st + IntToStr(r);
end;
 
end.

unit Unit5;
 
interface
const
//Множество разделителей.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Русская буква "А" в заглавном и строчном видах.
  Da = ['А', 'а'];
  //Буква "Б" в заглавном и строчном видах.
  Db = ['Б', 'б'];
implementation
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 Uses Unit2;
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
  i, Len, LenW, LenWMin, CntW, CntWB, CntWEq, CntA, CntA1 : Integer;
 
 
begin
  //Èñõîäíûé òåêñò áåð¸ì èç Ìåìî1.
  S := Memo1.Text;
 
  //Ðåøåíèå çàäà÷è.
  Len := Length(S);
  LenW := 0; //Äëèíà î÷åðåäíîãî ñëîâà.
  LenWMin := Len; //Íà÷àëüíàÿ äëèíà ñàìîãî êîðîòêîãî ñëîâà.
  CntW := 0; //Êîëè÷åñòâî ñëîâ â òåêñòå.
  CntWB := 0; //Êîëè÷åñòâî ñëîâ, íà÷èíàþùèõñÿ ñ áóêâû "Á".
  CntWEq := 0; //Êîëè÷åñòâî ñëîâ, íà÷èíàþùèõñÿ è çàêàí÷èâàþùèõñÿ îäíèì è òåì æå ñèìâîëîì.
  CntA := 0; //Êîëè÷åñòâî áóêâ À â ïîñëåäíåì ñëîâå.
  CntA1 := 0; //Êîëè÷åñòâî áóêâ À â î÷åðåäíîì ñëîâå.
  for i := 1 to Len do begin
    //Ïðîïóñêàåì ðàçäåëèòåëè.
    if S[i] in D then Continue;
    //Ïîäñ÷¸ò äëèíû î÷åðåäíîãî ñëîâà.
    Inc(LenW);
    //Ïîäñ÷¸ò áóêâ "À" â î÷åðåäíîì ñëîâå.
    if S[i] in Da then Inc(CntA1);
    //Îòñëåæèâàåì êîíåö ñëîâà è âûïîëíÿåì ðÿä ïîäñ÷¸òîâ.
    if (i = Len) or (S[i + 1] in D) then begin
      //Çàäà÷à À.
      Inc(CntW);
      //Çàäà÷à Á.
      CntA := CntA1;
      CntA1 := 0; //Îáíóëÿåì ñâåäåíèÿ î êîëè÷åñòâå áóêâ "À" â î÷åðåäíîì ñëîâå.
      //Çàäà÷à Â.
      if S[i - LenW + 1] in Db then Inc(CntWB);
      //Çàäà÷à Ã.
      if S[i - LenW + 1] = S[i] then Inc(CntWEq);
      //Çàäà÷à Ä.
      if LenW < LenWMin then LenWMin := LenW;
      //Îáíóëåíèå ñâåäåíèé î äëèíå î÷åðåäíîãî ñëîâà.
      LenW := 0;
    end;
  end;
 
  //Îòâåò.
  Memo2.Clear;
  Memo2.Lines.Add('À. Êîëè÷åñòâî ñëîâ â òåêñòå: ' + IntToStr(CntW));
  Memo2.Lines.Add('Á. Êîëè÷åñòâî áóêâ "À" è "à" â ïîñëåäíåì ñëîâå: ' + IntToStr(CntA));
  Memo2.Lines.Add('Â. Êîëè÷åñòâî ñëîâ, íà÷èíàþùèõñÿ ñ áóêâ "Á" èëè "á": ' + IntToStr(CntWB));
  Memo2.Lines.Add('Ã. Êîëè÷åñòâî ñëîâ â êîòîðûõ ñîâïàäàåò ïåðâûé è ïîñëåäíèé ñèìâîëû: ' + IntToStr(CntWEq));
  Memo2.Lines.Add('Ä. Äëèíà ñàìîãî êîðîòêîãî ñëîâà: ' + IntToStr(LenWMin));
end;
end.
end.

unit Unit2;
 
interface
 const
  //Ìíîæåñòâî ðàçäåëèòåëåé.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Ðóññêàÿ áóêâà "À" â çàãëàâíîì è ñòðî÷íîì âèäàõ.
  Da = ['À', 'à'];
  //Áóêâà "Á" â çàãëàâíîì è ñòðî÷íîì âèäàõ.
  Db = ['Á', 'á'];
 
implementation
 
end.

 var
  Form1: TForm1;
 
implementation
 
uses MyUnit;
 
{$R *.dfm}

unit Unit2;
 
interface
 
procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
  i, Len, LenW, LenWMin, CntW, CntWB, CntWEq, CntA, CntA1 : Integer;
   
 
implementation
 
end.

unit MyUnit;
 
interface
 
var
  S : String;
  i, Len, LenW, LenWMin, CntW, CntWB, CntWEq, CntA, CntA1 : Integer;
 
implementation
 
end.