Деление файла на части

begin
assignfile(f,'test.txt');
reset(f);
For i:=1 to dl do
 begin
 read(f,a[i]);
 write(a[i]);
 writeln;
 end;
closefile(f);
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  i, z, c: integer;
  inp, outstr: TStrings;
  CDS: TCopyDataStruct;
  TempStr :string;
begin
  z := 0;
  c := 0;
  i := 0;
  inp := TStringList.Create;
  outstr := TStringList.Create;
  inp.LoadFromFile('test.txt');
  for i := 0 to inp.Count - 1 do
  begin
    outstr.Add(inp[i]);
    z := z + 1;
    if z > 50 then
      z := 0;
    if z = 0 then
    begin
    TempStr:= outstr.Text;
    CDS.dwData := CMD_SETLABELTEXT;  //Устанавливаем тип команды
    CDS.cbData := Length(TempStr) + 1;  //Устанавливаем длину передаваемых данных
    GetMem(CDS.lpData, CDS.cbData);  //Выделяем память буфера для передачи данных
    try
    StrPCopy(CDS.lpData, AnsiString(TempStr)); //Копируем данные в буфер
    SendMessage(FindWindow(nil, 'StringReceiver'), //Отсылаем сообщение в окно с заголовком StringReceiver
                  WM_COPYDATA, Handle, Integer(@CDS));
    finally
    FreeMem(CDS.lpData, CDS.cbData); //Высвобождаем буфер
     end;
      inc(c);
    end;
  end;
  inp.Free;
  outstr.Free;
end;

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
    procedure WMCopyData(var MessageData: TWMCopyData); message WM_COPYDATA;
  public
    { Public declarations }
  end;
 
const
  CMD_SETLABELTEXT = 1;
var
  Form2: TForm2;
  temp:string;
 
implementation
 
{$R *.dfm}
procedure TForm2.WMCopyData(var MessageData: TWMCopyData);
begin
  //Устанавливаем свойства метки, если заданная команда совпадает
  if MessageData.CopyDataStruct.dwData = CMD_SETLABELTEXT then
  begin
    //Устанавливаем текст из полученных данных
    temp:= PAnsiChar((MessageData.CopyDataStruct.lpData));
    Memo1.Lines.Add(temp);
    MessageData.Result := 1;
  end
  else
    MessageData.Result := 0;
end;
 
 
end.

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
    procedure WMCopyData(var MessageData: TWMCopyData); message WM_COPYDATA;
  public
    { Public declarations }
  end;
 
const
  CMD_SETLABELTEXT = 1;
var
  Form2: TForm2;
  temp:string;
  t,i:integer;
  ts:string;
 
implementation
 
{$R *.dfm}
procedure TForm2.WMCopyData(var MessageData: TWMCopyData);
begin
  //Устанавливаем свойства метки, если заданная команда совпадает
  if MessageData.CopyDataStruct.dwData = CMD_SETLABELTEXT then
  begin
    //Устанавливаем текст из полученных данных
    temp:= PAnsiChar((MessageData.CopyDataStruct.lpData));
    Memo1.Lines.Add(temp);
    t:=GetTickCount;
    ts:=IntToStr(t);
    Memo1.Lines.Add(ts);
    MessageData.Result := 1;
  end
  else
    MessageData.Result := 0;
end;