¿Qué falla aquí?

[rastafarey]

haber si esto te sirve

Código Delphi [-]
procedure ElNombreQueSea;
Const
  csSql = 'SELECT Nombre, Apellidos, Direccion, Ciudad, Contactos."Tlf.Trabajo",'+
  ' Contactos."Tlf.movil", Mail, Notas, Contactos."Tlf.casa" FROM "contactos.DB" '+
  'Contactos where (%s LIKE ''%s'')';
  csCampos: Array[0..3] Of String = ('Nombre', 'Apellidos', 'Ciudad', 'Notas');
begin
  If Edit1.Text = '' Then
    MessageDlg('¡¡ Debe Introducir una Cadena a Buscar !!', mtInformation,[mbOk], 0)
  Else Begin
    If ElMismoQuery.Active Then
      ElMismoQuery.Close;
    ElMismoQuery.SQL.Text := Format(csSql, [csCAmpos[RadioGroup1.ItemIndex], '%'+Edit1.Text+'%']);
    ElMismoQuery.Open;
  End;
end;