Wenn die Zeilen im Memo schon existieren;
Delphi-Quellcode:
for i:=0 to 2 do
begin
zahl:=zahl +1 ;
Desk[i]:=('DESK-' +(IntToStr (i +1))+' = TASK(' + (IntToStr (zahl)) + ') LPT(PP0) WX() WY() FONT() TITLE('+ Edit2.Text + ') START(pw)');
Memo3.Lines[1] := Desk[i];
end;
Sonst
Memo3.Lines. Add( Desk[i]);