SQL en componentes ADO

[Parsec]

Hola,

me ha salido este problema:
Esta instrucción en Tquery, funciona perfectamente:

Código Delphi [-]
 Buscar.Active := False;
     Texto1:='Select Paciente,Tratamiento,Fecha,Importe,Haber,Importefactura,Fracc, observaciones from visitas where UPPER(Paciente) LIKE'''+'%'+UpperCase(Edit1.Text) + '%'''';
     Buscar.SQL.Clear;
      Buscar.SQL.Add(texto1);
       Buscar.Active:=True;

Pero no funciona en TADOQuery, ¿sabéis que es lo que debo de cambiar?.

Saludos