[ecfisa]

Hola krewer y bienvenido a Club Delphi.

Como a todo el que recién ingresa te invito a que leas nuestra guía de estilo

Siempre es importante que dés la mayor información posible, como por ejemplo con que base de datos trabajas, que tipo de componente, etc.

De modo general podrías hacer:

Código Delphi [-]
function TForm1.Existe(Dato: Variant): Boolean;
begin
  with Query do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM TU_TABLA');
    SQL.Add('WHERE CAMPO_BUSCADO = :DATO');
    ParamByName('DATO').Value:= Dato;
    Open;
    Result:= not isEmpty;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Existe(Edit1.Text) then
    ShowMessage('Encontrado')
  else
    ShowMessage('No existe');
end;

Saludos.