Загрузка изображений через Indy + немного оптимизации

void __fastcall ParseLink(void){
//GET FILE LINKS
AnsiString ornset =(ExtractFileDir(Application->ExeName) + "\\HostingUpload.ini"); //Файл с настройками логина и пароля
TIniFile *Orn;  //ини файл
Orn = new TIniFile(ornset);  
AnsiString loginR=Orn->ReadString("RG","login"," ");   //значения логина и пароля считываем из файла
AnsiString passwordR=Orn->ReadString("RG","password"," "); //хотя они есть на форме9 едит1 и едит2
Form1->IdHTTP1->Request->Host="www.rapidgator.net";  //обычные настройки инди
Form1->IdHTTP1->Request->ContentLength=72;   //известно, что длина должна быть точной, почему я не знаю
Form1->IdHTTP1->Request->CacheControl="max-age=0"; 
Form1->IdHTTP1->Request->UserAgent="Mozilla/5.0 (Windows NT 6.2; WOW64) AppleWebKit/537.1 (KHTML, like Gecko) Chrome/21.0.1180.15 Safari/537.1";  //взял из сниффера
Form1->IdHTTP1->Request->ContentType="application/x-www-form-urlencoded";
Form1->IdHTTP1->Request->Accept="text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
Form1->IdHTTP1->Request->Referer="http://www.rapidgator.net/auth/login"; //страница авторизации
Form1->IdHTTP1->Request->AcceptEncoding="gzip,deflate,sdch";
Form1->IdHTTP1->Request->AcceptLanguage="ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4";
Form1->IdHTTP1->Request->AcceptEncoding="windows-1251,utf-8;q=0.7,*;q=0.3";
Form1->IdHTTP1->CookieManager=Form1->IdCookieManager1;  //может и без него заработает, т.к. я вручную сделал куки
Form1->IdHTTP1->HandleRedirects=true;   
AnsiString site="http://www.rapidgator.net/auth/login";   //ссылка для авторизации
AnsiString request="LoginForm%5Bemail%5D="+loginR+"&LoginForm%5Bpassword%5D="+passwordR; //сам пост запрос
Form1->Memo7->Clear(); //очищаю Memo7 которое в качестве TStringList'а использую
Form1->Memo7->Lines->Add(request);  //добавляю этот самый запрос
AnsiString resp;  //строка ответ
Form1->IdHTTP1->Post(site,Form1->Memo7->Lines);  //отправил таким образом POST запрос
Form1->Memo7->Clear();  //и убрал за собой, т.к. авторизовался на сайте, исходный код страницы не нужен пока
 
resp=Form1->IdHTTP1->Response->RawHeaders->Text;
Form1->Memo7->Lines->Add(resp);
Form1->Memo7->Clear();  //честно говоря не знаю зачем я это сделал (последние 3 строчки), но всё работает, боюсь трогать.
Form1->IdHTTP1->Response->RawHeaders->Extract("Set-Cookie", Form1->Memo7->Lines);  //достаю куки
Form1->IdHTTP1->Request->CustomHeaders->Text="Cookie:"+Form1->Memo7->Lines->Strings[0]; //хотя там две строки, но я беру первую
resp=Form1->IdHTTP1->Get("http://www.rapidgator.net/filesystem/index");  //открываю страницу с использованием куков, успех
Form1->Memo7->Clear(); //убераю за собой на всякий случай
Form1->Memo7->Lines->Add(resp);  //добавляю исходник (он в виде строки обычной)
Form1->Memo7->Lines->SaveToFile("luck.html"); //сохраняю в файл
Form1->Memo7->Clear(); //очищаю
//Сложное извлечение и формирование ссылок
Form1->Memo1->Lines->LoadFromFile("luck.html");
/*опять загружаю (тут вот проблема конкретная, но работает) Если не сохранять и не загружать то нижеисполненный алгоритм не будет работать, а по какой причине - я не знаю. Хотя количество строк 955, но неужели ни в одной строке нету искомого?*/
AnsiString query;
int m=0;                 //270
int n;
int vl=0;
 
bool fastadd=true;
bool unique;
if (Linkadder->Memo1->Lines->Count!=0) {
  fastadd=false;
}
while (m<Form1->Memo1->Lines->Count){       
 
query=Form1->Memo1->Lines->Strings[m];    //Всё что мне тут надо поменять это чтобы использовался TStringList
 
n=query.Pos("<td style=\"display:none\">id&gt;");
if (n!=0) {
 
 
if (strlen(query.c_str())>10)
query.Delete(1,n+strlen("<td style=\"display:none\">id&gt;")-1);
query="[url=http://www.rapidgator.net/file/"+query;
if (strlen(query.c_str())>10)
n=query.Pos(",level&gt;0,key_left&gt;0,key_right&gt;0,name&gt;");
query.Insert("]",n);
query.Delete(n+1,strlen(",level&gt;0,key_left&gt;0,key_right&gt;0,name&gt;"));
n=query.Pos(",type&gt;");
query.Delete(n,query.Length()-n);
query.Delete(query.Length(),1);
query=query+"[/url]";
unique=true;
if (fastadd==false) {
 //Проверка на уникальность
 for (vl=0; vl < Linkadder->Memo1->Lines->Count; vl++) {
 
  if (strcmp(query.c_str(),Linkadder->Memo1->Lines->Strings[vl].c_str())==0)
  unique=false;
 
}
if (unique==true) Linkadder->Memo1->Lines->Add(query);
 }
else  Linkadder->Memo1->Lines->Add(query);
 
}
m++;
}
Form1->Memo1->Clear();
}

//....
if (strlen(query.c_str())>10)
query.Delete(1,n+strlen("<td style=\"display:none\">id&gt;")-1);
query="[url=http://www.rapidgator.net/file/"+query;
if (strlen(query.c_str())>10)
n=query.Pos(",level&gt;0,key_left&gt;0,key_right&gt;0,name&gt;");
query.Insert("]",n);
query.Delete(n+1,strlen(",level&gt;0,key_left&gt;0,key_right&gt;0,name&gt;"));
n=query.Pos(",type&gt;");
query.Delete(n,query.Length()-n);
query.Delete(query.Length(),1);
query=query+"[/url]";
//....

try{ IdHTTP1->Post(site,Form1->Memo7->Lines); }
catch(EIdException &E) 
 {
   ShowMessage(E.Message);
   return 0;
 }

TIniFile *Orn;  //ини файл
Orn = new TIniFile(ornset);  
//..
delete Orn;