Stahovaní přes HTTP v delphi

Tak problém bude asi v tom že používám klasicky Socket Components dclsockets160.bpl

Zkouším tedy synapse

Stanout s našeho servru soubor se mi podařilo i přes heslo.
Stanout však něco do StringListu ne.

http://delphi.cz/post/Download-upload-HTTP-Synapse -Delphi.aspx
Toto mi vyhazuje error 105.

No zapomněl jsem napsat že zkoušim ten první, je tam toho vice.

begin
sl := TStringList.Create;
try
HttpGetText('www.google.cz', sl);
writeln(sl.Text);
// zde si muzeme se stazenym souborem neco udelat,
finally
FreeAndNil(sl);
end;
end.

Zkus tu druhou moznost, vyhod nastaveni proxy. Muzes si tam pridat odchyceni vyjimky.

Tak funguje i ten první.
writeln(sl.Text); tam děla paseku.

Zkouším
Takto se mi podařilo stáhnout soubor s našeho servru přes synapse.

with THTTPSend.Create do
try
UserName:= 'admin';
Password:= 'admin';
If HTTPMethod('GET', 'mujseznam.txt') then
if ResultCode = 200 then Document.SaveToFile('.\mujseznam.txt');
finally
Free;
end;

Jak však na to u HttpGetText
Tímto způsobem to nefunguje.
Jak stáhnout nějakou stránku se servru, který má přístup chráněn heslem?
Nebo třeba s nějakého zařízeni, které plouživá pro nastavení web rozhraní.