[leon2009]

Не справляюсь
результат:

aaaaaaa
0100101
b

текст =

1111111
2222222
3333333
4444444
5555555
6666666
7777777
8888888
9999999
aaaaaaa
0100101
bbbbbbb

Код:

function LoadFile(const FileName: TFileName):string;
var
  MemStr: TStringStream; text,s1:string;
begin
  MemStr:= TStringStream.Create;
  try
    MemStr.LoadFromFile(FileName);
    //Result := MemStr.DataString;
    text:=MemStr.DataString;
    while length(text)>20 do begin
      s1:=copy(text,1,20);
      result:=s1;
      delete(text,1,20);
    end;
 finally
    MemStr.Free;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//LoadFile('test.txt');
memo1.Lines.Text:=(LoadFile('test.txt'));
end;