[ecfisa]

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
    // Aquí lo que quieras hacer
    ShowMessage('Entrada inválida');
  end;
end;

Saludos