Не выходит сохранить файл через XMLHTTP

[SeRhy]

Здравствуйе.
Я пробую скачат файл с помощю XMLHTTP. Файл скачивается но не могу понять как его сохранить...

var v:variant;
begin
   v := CreateOleObject('MSXML2.XMLHTTP');
   v.Open('GET', 'http://cbrates.rbc.ru/tsv/840/2009/11/12.tsv', False);
   v.Send;
   ShowMessage(v.ResponseText);
end;

Подскажите пожалуйста чтото.
Зарание спасибо.

[uberchel]

procedure TForm1.Button1Click(Sender: TObject);
var
 v:variant;
 f: TextFile;
begin
   v := CreateOleObject('MSXML2.XMLHTTP');
   v.Open('GET', 'http://cbrates.rbc.ru/tsv/840/2009/11/12.tsv', False);
   v.Send;
   AssignFile(f, ExtractFilePath(ParamStr(0))+'\12.tsv');
   Rewrite(f);
   WriteLn(f,v.ResponseText);
   CloseFile(f);
end;