multiline-paste im edit feld

[XHelp]

Er meint bestimmt:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  i:integer;
  s:string;
begin
if key=13 then begin
  if GetAsyncKeyState(VK_RCONTROL)<>0 then begin
    Edit1.Text:=Edit1.Text+#1;
  end
  else begin
    s:=Edit1.Text;
    while pos(#1,s)>0 do begin
      i:=pos(#1,s);
      Memo1.Lines.Add(Copy(s,1,i-1));
      Delete(s,1,i);
    end;
    if Length(s)>0 then Memo1.Lines.Add(s);
  end;
end;
end;

Mit STRG+Enter machst du eine "neue zeile" und mit Enter liest du die einzelnen zeilen.