Buscar dados da tabela

uses SqlExpr;

function  Ret_TemCLiente(qryCLiente: TSQLQuery; Filtro: string): Boolean;
begin
  if  Filtro <> '' then
      Filtro := ' WHERE ' + Filtro
  ;

  with qryCLiente do
  begin
    SQL.Text :=
      ' SELECT' +
      '   cli.*' +
      ' FROM' +
      '   CLIENTE cli' +
      Filtro;

    Close;
    Open;
  end;

  Result := not qryCLiente.IsEmpty;
end;

procedure Evento_Do_Edit;
var
  Filtro: string;
  qryCLiente: TSQLQuery;
begin
  qryCLiente := TSQLQuery.Create( Self );
  try
    qryCLiente.SQLConnection := Seu_SQLConnection; { Coloque o componente que faz a coxão com o banco }

    Filtro := 'Campo = ' + Edit.Text; { Aqui você coloca o filtro que quiser }
    if  Ret_TemCLiente( qryCLiente, Filtro ) then
      begin
        { Preenche os dados do cliente com a qryCLiente }
      end
    else
      begin
        { Cham o formulário de inclusão }
      end
    ;
  finally
    FreeAndNil( qryCLiente );
  end;
end;