Unsichtbares Leerzeichen

[jellol]

Guten Abend!

Habe mich hier heute angemeldet, nachdem ich ungefähr 32.00 mal auf euren Forenseiten gelandet bin. Jetzt habe ich allerdings ein kleines Problem, für dass ich noch keine Lösung gefunden habe . Ist aber wirklich nur ganz klein.
Und zwar wollte ich ein kleines bisschen Zeit sparen, indem ich eine Eingabe, die ich in mehreren Programmen brauchte, in ein eigenes Programm schreibe, welches diese direkt in die Zwischenablage kopiert. (Ich weiß eigentlich spar ich mir dadurch nur Wort markieren, strg+c, aber wo ein Wille ist, ist ein Hindernis .) Also eben das Programm geschrieben. Hat alles geklappt. Dann hab ich noch eben hinzugefügt, dass das "Haupt-Edit" geleert wird, wenn man strg+return drückt. Und da kam das kleine Problem. Und zwar fügte sich immer ein "unsichtbares Leerzeichen" als erstes Zeichen in das Editfeld ein, wenn man zuvor strg+Return benutzt hat.
Das Programm mit Quellcode häng ich an.

Sichtbar wird das "unsichtbare Leerzeichen" in OpenOffice Calculator. In anderen Programmen ist es vorhanden, aber halt nicht sichtbar. Hab aber nicht soo viele Programme ausprobiert.

Man sieht meinen Versuch (trim), hat nicht geklappt.
Auch dem Edit eine leere String zuzuweisen macht keinen Sinn.

Zum Testen: Programm starten, strg+return, neue eingabe, anderes Programm öffnen, strg+v

Achso und für alle nichtregistrierten Leser:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Height := 53;
  Edit1.Left := 0;
  Edit1.Top  := 0;
  Edit1.Width := Form1.Width;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then
    clipboard.AsText := trim(Edit1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Height := 53;
  Edit1.Left := 0;
  Edit1.Top  := 0;
  Edit1.Width := Form1.Width;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 17 then strgpress := true;
  if (key = 8) and (strgpress) then edit1.text := '';
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 17 then strgpress := false;
end;