Schreiben in Zwischenablage

[Buttercreme]

Ist ein relativ großes Projekt. Deshalb hier nur der Teil wo ich mit dem Clipboard arbeite:

(Bis zum Form1.Edit1.Text:=old.text; funktionier es auch noch. Evtl. auch weiter aber das kann ich in der Anwendung ja nicht sehen.)

Delphi-Quellcode:

procedure GetID;
begin

sleep(500);

Clipboard.Free;
old := TStringList.Create;
old.Text:=Clipboard.AsText;

Form1.Edit1.Text:=old.text;

SetForegroundWindow(wnd1);
ShowWindow(wnd1, 1);

clears := TStringList.Create;
clears.Text := 'clear';
Clipboard.AsText := clears.Text;

sleep(50);

PostKeyDown(VK_CONTROL);
PostKeyDown(Ord('C'));
PostKeyUp(VK_CONTROL);
PostKeyUp(Ord('C'));

sleep(500);

Clipboard.Free;
current := TStringList.Create;
current.Text:=Clipboard.AsText;
Form1.Edit2.Text:=current.text;

insert2:=trim(current.Text);

if discon >= 5 then
begin
  ShowMessage ('DISCONNECT');
  restart:=1;
  exit;
end;

if insert2 = 'Owned' then
begin
  discon:=discon +1;
  RefreshList;
  exit;
end;

if insert2 = 'Owned2' then
begin
  discon:=discon +1;
  RefreshList;
  exit;
end;


if rundisc = 1 then
begin
  rundisc:=0;
  if current.Text = 'clear' then
  begin
    discon := discon + 1;
    if discon >= 5 then
    begin
      ShowMessage ('DISCONNECT');
      restart:=1;
      exit;
    end;

  end;
end;

if old.Text <> current.Text then
begin
  insert:=trim(current.Text);
  Form1.Memo1.Lines.Add(insert);