q code umschreiben

[misterx]

Delphi-Quellcode:

Var archivo: TextFile; 
    X:integer; 
begin 
For X:=0 to 5000 do 
  Begin 
   AssignFile(Archivo,'log'+IntToStr(X)+'.txt'); 
   {$I-}Reset(Archivo);{$I+} 
    If IOResult<>0 then 
     Begin 
      Rewrite(Archivo); 
      Writeln(Archivo,DateTimeToStr(Now)); 
      Writeln(Archivo); 
      Write(Archivo,Buffer); 
      CloseFile(Archivo); 
      Buffer:=''; 
      Exit; 
     End; 
  End; 
End;

ich wolt wissen wie man das so macht das er es nicht als log abspeichert sondern alles in memo1 schreibt