[Помогите!] Darkorbit

[borum]

не могу отправить ресы.

procedure TForm1.Button13Click(Sender: TObject);
 var s1,s2,s3,s4:string;
 Data: TStringList;
begin
 Idhttp1:=tidhttp.create(nil);
 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=true;
IdHTTP1.Get('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab');
//Сброс на кор (Работает)
data.Add('action=internalSkylab');
data.Add('subaction=startTransport');
data.Add('target=ship');
data.Add('mode=normal');
data.Add('construction=TRANSPORT_MODULE');
data.Add('count_prometium=5');
data.Add('count_endurium=5');
data.Add('count_terbium=5');
IdHTTP1.Post('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab', data);
end;

вот код, пытаюсь послать ресы, вылетает дебаг.
Помогте с сорцом отправки ресов.

[Warning] Unit2.pas(170): Variable 'Data' might not have been initialized как бы вот такое предупреждение выскакивает

[doctor_flasher]

1) если делаешь create, то в конце Free надо.
2) Судя по названию, ты бросил idhttp на форму. Так вот в таком случае create не надо
3) скорее всего ошибка возникает из-за нестандартного ответа сервера (ну какую-либо ошибку возвращает. Например, 302). Учись использовать Try Except End; и погугли на тему обработки ошибок.

[PseudoDog]

перед data.Add('action=internalSkylab');
надо вставить data := TstringList.Create;