Saludos
No h evisto bien el codigo, ya que me confunden tantas comillas.
Solucion facil: usa un DBEdit, que te muestra el campo del registro actual. Y tambien en podrias usar Parametros en la sentencia:
Código Delphi
[-]procedure .....(...);
var
Buscar:String;
Begin
Buscar:='Select * from ccClientes Where (Periodo=01) and cuenta Like :cuenta';
QDataset.Sql.Text:=Buscar; QDataset.ParamByName('cuenta').AsString:='%'+Cuenta1.Text+'%';
QDatset.Open; End;
Espero que te sirva