Inputan Hanya Boleh Angka Saja...

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
//if not ((key>=chr(48)) and  (key<=chr(57))) then key:=chr(0);
if not (key in ['0'..'9',#8]) then key := #0;
end;