Edit Eingabe nur auf Zahlen beschränken, Probleme mit ^

[ATSV]

Delphi-Quellcode:

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  begin
    ShowMessage('Stop!');
  end;
end;

also so gehts