Zwischenablage Fehlermeldung

[delphinia]

Ich erhalte immer mal wieder aber einfach zu sporadisch und nie reproduzierbar die Meldung:

"Zwischenablage konnte nicht geöffnet werden"

Jemand eine Idee dafür?!

Ich weiss nicht mal ob es bein Einfügen in diese oder erst beim auslesen entsteht!

hier mal die Kopierfunktion

Delphi-Quellcode:

  keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
  keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0);
  keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), KEYEVENTF_KEYUP, 0);
  keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);

und zum auslesen:

Delphi-Quellcode:

function GetStrFromClipbrd: string;
begin
  if Clipboard.HasFormat(CF_TEXT) then
    Result := Clipboard.AsText
  else
  begin
    Result := '';
  end;
end;

Vielleicht hat jemand eine Idee wie ich diese Meldung udn das Problem dessen beheben kann
Danke