Hola.
Podes usar el evento
OnSetText del
TField en cuestión para evaluar el ingreso y actuar en consecuencia:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
DataSet.FieldByName('EL_CAMPO').OnSetText := DataSetFieldSetText;
end;
procedure TForm1.DataSetFieldSetText(Sender: TField; const Text: string);
var
v: Integer;
begin
if not TryStrToInt(Sender.AsString, v) then
begin
ShowMessage('Entrada inválida');
end;
end;
Saludos