[__cadetill]

debes de crear la sentencia SQL dinámicamente. No obstante, también deberás de pasar por parámetrolos valores a buscar

La función podría ser algo así (no está probada pero sí que compila)

function TForm1.Existe(Tabla : string; Campos, Valores : TStrings) : boolean;
var
   sql : string;
   i : integer;
   Q : TQuery;
begin
   sql := 'select * from ' + Tabla;
   if Campos.Count <> 0 then
      sql := sql + ' where ';
   for i := 0 to Campos.Count - 1 do
   begin
      if i = Campos.Count - 1 then
         sql := sql + Campos[i] + ' = ' + Valores[i]
      else
         sql := sql + Campos[i] + ' = ' + Valores[i] + ' and ';
   end;

   Q := TQuery.Create(Self);
   Q.DatabaseName := 'MyDataBasename';
   Q.SQL.Text := sql;
   try
      try
         Q.Open;
         if Q.IsEmpty then Result := false
         else Result := true;
      finally
         FreeAndNil(Q);
      end;
   except
      Result := false;
   end;
end;

Espero te sirva la idea