Hola georgejg, para capturar el mensaje de error, puedes hacer lo siguiente en el evento OnSetText de tu campo.
Código Delphi
[-]
procedure TForm1.ADOQuery1campoSetText(Sender: TField;
const Text: String);
begin
try
sender.AsFloat:= StrtoFloat(text);
except
raise EDatabaseError.Create('Formato incorrecto');
end;
end;
Saluditos