edit mit eingabesperre & copy + paste

[Jan]

Also ich habe für mein kleines Umrecnungsprogramm eine Eingabebschränkung programmiert, die z.B. so aussieht:

Delphi-Quellcode:

procedure TForm2.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
  If not(key in [#48..#57,#65..#70,#97..#102,#8]) then
  begin
    beep;
    key := #0;
  end;
end;

Um dann aber copy und paste zu ermöglichen habe ich im onkeyup folgendes geschrieben:

Delphi-Quellcode:

procedure TForm2.Memo2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) then
  begin
    if (Key = 67) then
    memo2.CopyToClipboard
    else if (Key = 118) then
    memo2.PasteFromClipboard;
  end;
end;

Copy geht ganz ohne Probleme, aber paste will nicht. Das gleiche tritt auch bei edits auf.
Weiß da jemand weiter?
Gruß
Jan

[edit=Daniel B]Delphi-Tags hinzugefügt. Jan, bitte [ delphi] anstatt [ code] benutzen! Danke! MfG Daniel B.[/edit]