procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);begin if not(Key in ['0'..'9', #13]) then Key := #0;end;
-1, -2, -3, ect are also integers. So yes, 0 is a part of it. But what are you try to convert?