Edit soll nur Zahlen enthalten dürfen

[r_kerber]

das folgende Beispiel habe ich in der OH gefunden. Vielleicht kannst Du da eine Anregung entnehemn:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
if Clipboard.HasFormat(CF_TEXT) then
  Edit1.Text := Clipboard.AsText
else
  MessageDlg('Die Zwischenablage enthält keinen Text!', mtInformation,
        [mbOK],0);
end;