Problem z memo.

Mam problem z zapisem do TMemo dużej ilości linii textu w Delphi 5.
W programie generuje linie textu po ok. 100znaków i po wykonaniu programu przy założeniu 1000 linii do memo przenoszone jest ok. 550 linii. Pozostałych linii nie widać (nie ma ich w memo) a program nie pokazuje żadnych błędów.
Przy zapisie tego samego do RichEdit wszystko jest OK.
Poniżej przykładowa procedura.
Co robie nie tak??

procedure TForm1.Button1Click(Sender: TObject);

var
I,L,a,T : integer;
liczba : string;
begin
L:=strtoint(form1.Edit1.text);
form2.memo1.lines.clear;
form3.RichEdit1.Lines.Clear;
liczba:='11111 ';
a:=1;
I:=1;
while I<L+1 do
begin

    liczba:=liczba+'22222     ';

            if a=10 then
            begin
            T:=i div 10;
            liczba:=inttostr(T)+'  '+liczba;
            form2.memo1.lines.add(liczba);
            form3.RichEdit1.Lines.Add(liczba);
            liczba:='11111     ';
            a:=0;
            end;
    a:=a+1;
    I:=I+1;
    end;

Form1.Label2.Caption:='wykonane';

end;

Memo ma nieprzekraczalne ograniczenie 64K. Nie pamiętam, czy we wszystkich win, czy tylko 95/98. Nic z tym nie zrobisz, poza użyciem RichEdit.

Dzięki za odpowiedź.
W win XP nie ma takiego ograniczenia. Sprawdzałem. :-/
Nie chciałem tego robić z richedit bo jest wolniejsze.