procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := ' Select * From Clientes where Nombre like ''%'+Edit1.Text+'%''';
ADOQuery1.Open;
if (Not ADOQuery1.Eof) then begin
Edit2.Text := ADOQuery1.FieldByName('Apellido').AsString;
end
else ShowMessage('No existe el cliente')
end;
end.