Hola Lepe, nada quería decirte que muchas gracias que me ha funcionado muy bien,

lo único que en el código que pusiste había que quitar el 'upper' que pusiste delante del campo Nombre, el código funcionando se quedaría así:
Código Delphi
[-]
if radiobutton1.checked then begin Form1.Query2.Close();
Form1.Query2.SQL.Text := 'SELECT * FROM agenda WHERE Nombre Like
'+quotedStr(uppercase('%'+Edit1.Text+'%'));
Form1.Query2.Open();
Form1.Query2.Locate('Nombre',edit1.Text,[lopartialkey, locaseinsensitive]);
Nada Lepe muchas gracias de nuevo y que pases buena tarde.
Un Saludo
