Error al ejecutar procedimiento en servidor

[CORBATIN]

Lo prometido es deduda, un saludo y perdón para los que se hayan molestado:

Procedure en el servidor:

procedure TConsultasHtml.AyudaArticulos(CodArticulo: LongWord);
begin
  with ADOQuery1 do begin
  close;
  sql.Clear;
  sql.Add(LeerDatosIni('AyudaArticulos'));
  Parameters[0].Value := CodArticulo;
  open;
 end;
end;

La consulta se lee de un archivo .ini que es la siguiente:

AyudaArticulos = SELECT Articulos.id_articulo, Articulos.descripcion_articulo FROM Articulos WHERE Articulos.descripcion_articulo like %s and Articulos.descripcion_articulo like %s

En el cliente hago lo siguiente:

procedure TFAyudaArticulos.BTBuscarClick(Sender: TObject);
begin
  if (Ebuscar1.text <> '') then begin
   cds.Close;
   FGrupo.conector.AppServer.BusquedaArticulos(Ebuscar1.text,Ebuscar2.text);//llamada al procedimiento servidor
   cds.Open;
   SBdatos.panels[1].text := 'Registros encontrados: '+inttostr(cds.RecordCount);
  end
  else showmessage('No hay datos para buscar.');
end;

Le mando dos campos porque tengo dos parámetros para buscar el articulo en concreto.

Espero que esto os sirva, un saludo.

POSDATA: Entre todos podemos hacer que la tribu no desaparezca.