Nur Integer Werte im Edit Fenster zulassen

[Cöster]

Ich würd's so machen:

Delphi-Quellcode:

var EdText: String;

procedure TForm1.Edit1Change(Sender: TObject);
var temp: integer;
begin
  Try
    temp := StrToInt(Edit1.Text);
    EdText := Edit1.Text;
  Except
    Edit1.Text := EdText;
  end;
end;