Probleme mit der Zwischenablage

[Catbytes]

Hallo,

habe folgendes Problem: Ich bin gerade an diesem Projekt beschäftigt.

Nun möchte ich, daß wenn der Hotkey gedrückt wird, die aktuelle Zwischenablage gespeichert, der markierte Text kopiert, die Seite bei Wikipedia aufgerufen und die zwischengespeicherte Zwischenablage wieder zurückgelesen wird.

Klappt soweit ganz gut - Problem ist nur, daß das nur einmal klappt.

Beim zweitenmal kommt entweder die Fehlermeldung "Zwischenablage konnte nicht geöffnet werden", oder der String der Zwischenablage ist leer.

Als Anhang ein Beispielprojekt. Da, wo der MessageDlg kommt, wird normalerweise die Wikipedia-Seite aufgerufen. Hotkey ist in diesem Beispiel STRG+1 (Numpad).

Vorgehensweise: Programm starten, Text irgendwo markieren, Hotkey drücken (sollte einmal klappen). Beim zweiten mal krachts dann

Kann mir einer sagen warum?

Edit: Die Datei sndkey32.pas ist bei Delphi 7 auf der Installations-CD unter \INFO\EXTRAS\SENDKEYS zu finden. Wer dies nicht möchte, einfach oben aus der Uses-Klausel entfernen und die vier weiteren Programmzeilen aktivieren