procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if ( StrScan('0123456789.-',Key) <> nil ) or
   ( Key = Char(VK_BACK) ) then
 begin
 
 end
 else
  Key := #0;
end;
 
//yalnız harf girme
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then
  Key := #0;
 
end;