1:
2:
3:

hallo
und
tschüss					

1:
2:
3:
4:
5:
6:
7:
8:

edit1.PasteFromClipboard;
if edit1.text = '' then
begin
  showmessage('Es befindet sich nichts in der Zwischenablage');
  exit;
end;
listbox1.Items.add(trim(edit1.text));
edit1.clear;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

uses
  ClipBrd;

var
  S : String;
begin
  if ClipBoard.HasFormat(CF_TEXT) then //musst mal gucken ob das wirklich so heisst
  begin
    S := ClipBoard.AsText;
    {...}
  end else
    ShowMessage('Es befindet sich kein String in der Zwischenablage');
end;