[detrin]

В свое время часто пользовался вот таким кодом:

Код:

var  OldText:String;
...
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text<>'' then
try
  StrToFloat(Edit1.Text);
  OldText:=Edit1.Text;
except
  Edit1.Text:=OldText;
  Edit1.SelStart:=Length(Edit1.Text);
  Edit1.SelText:='';
end;
end;

На мой взгляд очень удобный и компактный код.