Text-Teile ersetzen im Memo-Feld

[Coder]

a) ich möchte Teile eines Textes im Memofeld ersetzen
Ihc markiere den Textteil
frage nach Drücken von STRG+V im FormKeyDown() ab:

Delphi-Quellcode:

 if (ssCtrl in Shift) and (key = $56) then
begin
 memo1.SelText :='';
 memo1.SelText := Clipboard.AsText;
end;

doch es erscheint dann
2x der selbe eingefügte Text hintereinander: Bsp.: eingefügt: 'Das ist ein Satz.' , dann steht nacher im Memo: Das ist ein Satz.Das ist ein Satz.

Das kann doch nicht wahr sein, daß der o.g. Befehl 2x ausgeführt wird ?


weil's gerade auch hierzu paßt und Probleme gibt:
b) das Memeofeld soll nach dem Start direkt den Focus bekommen
habe das memo1.SetFocus; im Form.oncreate() stehen - aber da kommt nur

Delphi-Quellcode:

Im Projekt web_Test.exe ist eine Exception der Klasse EInvalidOperation aufgetreten. Meldung: 'Ein deaktiviertes oder unsichtbares Fenster kann nicht den Fokus erhalten'. Prozeß wurde angehalten. 
Fortfahren mit Einzelschritt oder Start.

als Fehlermeldung beim Starten der Exe.
Das aber müßte doch dennoch gehen, oder?
Das Programm besitzt noch eine zweite Form. Liegt's daran?