Исправление в наследовании IdHTTP + (Cookies)

[goul]

Приветствую!
Как правильно исправить процедурки гетя и поста в данном модуле?

Пишу новый модуль: IdHTTPCustom.pas прикреплен

В нём:

TIdHTTPCustom = class(TIdHTTP)
public
    FCookieList: TStringList; // наш листок с куками
...
end;

До начала получения\отправки данных использую процедурку

procedure TIdHTTPCustom.ReadCookies(Url: string);

соответственно, после --

procedure TIdHTTPCustom.WriteCookies(Url: string);

Всё работает, но городить забор до и после каждой процедуры отправки-получения как то не хочется. Решил заменить все процедуры гетя и поста:

procedure Get(AURL: string; AResponseContent: TStream); overload;
begin
  Self.ReadCookies(AURL);
  Get(AURL, AResponseContent, []);
  Self.WriteCookies(AURL);
end;

И вот тут что=то пошло не так. Пустые ячейки Response, битые картинки...
Не самая лучшая идея, конечно, исправлять сам IdHTTP, когда можно поправить IdCookieManager, но он мне показался настолько закаканым, что я решил пока написать костылик из этого.

[goul]

актуально

[Пепел Феникса]

procedure Get(AURL: string; AResponseContent: TStream); overload;
begin
  Self.ReadCookies(AURL);
  inherited Get(AURL, AResponseContent);
  Self.WriteCookies(AURL);
end;

поидее это надо сделать в Get/Post варианте к которому идут все остальные.(Делфей неету)

[goul]

сделал для каждой - та же шляпа (пустые данные)

[goul]

актуально