wczytywanie do memo pliku

Jak zrobić aby wczytując jakiś plik *.txt do memo co np. 50 znak(w pliku) był wstawiany znak Enter(w memo) :| --Albo jesteś zerem albo jedynką...;)

Const CoIle=50;
Var Buf:Array[1..CoIle] Of Char;
F:File;
P:Integer;
Begin
Assign(F,'C:\Autoexec.bat');
Reset(F,1);
P:=1;
Repeat
BlockRead(F,Buf,CoIle);
Form1.Memo1.Text:=Form1.Memo1.Text String(Buf) #13#10;
Inc(P);
Until (Eof(F)) Or (PCoIle&gtFileSize(F));
If (PCoIle&gtFileSize(F)) Then
Begin
FillChar(Buf,50,0);
BlockRead(F,Buf,FileSize(F)-(P-1)*CoIle);
Form1.Memo1.Text:=Form1.Memo1.Text String(Buf) #13#10;
End;
Close(F);
End;

Musisz to jesze ulepszyć.
--Szymek

Prawo Bolingsa - jeżeli czujesz się świetnie, nie martw się, to minie.

O rany!!! Ale mi namieszałeś hmm... ...
Może lepiej to zrozumie na jakimś prostym prykładzie.
Np. mam już w memo text i teraz chcę żeby co 50 znak był wstawiony znak entera. :| --Albo jesteś zerem albo jedynką...;)

var
s, r: string;
begin
s := Memo1.Text;
while Length(s) &gt 50 do
begin
r := r + Copy(s, 1, 50) + #13#10;
Delete(s, 1, 50);
end;
Memo1.Text := r + s;
end;--__________________________________
Pozdrawiam...
piechnat

A jednak to było takie proste {glowa}
{hello} Dzięki--Albo jesteś zerem albo jedynką...;)