Hola, vayamos por partes:
1- Puedes usar el evento OnKeyPress o el OnKeyDown
2- Prueba con ésto:
Código Delphi
[-]
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if not ExisteValorEnTabla(Edit1.Text) then begin Edit1.Text := ''; Edit1.SetFocus; end;
end;
Saludos