Как загрузить текстовый файл с сервера в TStringList или Memo?

#include <urlmon.h>
...
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString strUrl = "http://tools.virusnet.info/drongo/VirusNet-Soft/combain.txt";
  AnsiString str = "C:\\1.txt"; // Адрес куда сохраняем файл
  URLDownloadToFile(NULL, strUrl.c_str(), str.c_str(), NULL, NULL);
  Memo1->Lines->LoadFromFile(str);
  DeleteFile(str);
}
//---------------------------------------------------------------------------

    try
    {
        Memo1->Text = IdHTTP1->Get("http://site.ru/file.txt");
    }
    catch(...)
    {
        // error
    }

    int error = 0;
    TStringList *asd = new TStringList;
    IdHTTP1->ConnectTimeout = 2000; // "Time out"
    try
    {
        asd->Text = IdHTTP1->Get("http://site.ru/file.txt");
    }
    catch(...)
    {
        error++;
    }
 
    if(asd->Text.Length() > 1 && error == 0)
    {
        Memo1->Text = asd->Text
        delete asd;
    }
    else
    {
        delete asd;
        ShowMessage("Bad connect...");
    }

//---------------------------------------------------------------------------
AnsiString __fastcall DownloadTextFileX(AnsiString x_url)
{
    int error = 0;
    TStringList *tmp_list = new TStringList;
    Form1->IdHTTP1->ConnectTimeout = 2000; // "Time out"
    try
    {
        tmp_list->Text = Form1->IdHTTP1->Get(x_url);
    }
    catch(...)
    {
        error++;
    }
 
    if(tmp_list->Text.Length() > 1 && error == 0)
    {
        //
    }
    else
    {
        tmp_list->Text = "ERROR!";
    }
    return tmp_list->Text;
}
//---------------------------------------------------------------------------
void __fastcall TMyThread::Execute()  // THREAD FUNC
{
    // вызываем функцию из потока
    Form1->Memo1->Text = DownloadTextFileX("http://ya.ru/");
}
//---------------------------------------------------------------------------

TMemoryStream *ms = new TMemoryStream();
IdHTTP1->Get("http://msdn.at.ua/1.txt",ms);
ms->Position = soFromBeginning;
Memo1->Lines->LoadFromStream(ms);
delete ms;
ms = NULL;