idhttp1 ,problem z wysłaniem post

Witam.

Mam problem ,którego nie mogę od dawna rozwiązać dlatego proszę was o pomoc.
Oto mój kod:
procedure TForm1.Button1Click(Sender: TObject);
var
output,input : Tstringstream;
begin
try
input:=Tstringstream.Create('');
output:=Tstringstream.Create('');
http1.Host:='http://www.epuls.pl';
http1.Port:=80;
http1.Connect();
input.WriteString('blnLoginForm=1&lngLoginSystemID='+systemid.Text+'&strUserLogin='+login.Text+'&strUserPassword='+password.Text);
http1.Post('http://www.epuls.pl/start.php',input,output);
finally
input.Free;
output.Free;
end;
end;

Moj problem polega na tym ,że kompoment łączy sie z epulsem ,ale po chwili rozłącza.
Proszę was i pomoc.

bolo17 napisał(a)

Moj problem polega na tym ,że kompoment łączy sie z epulsem ,ale po chwili rozłącza.

To jest HTTP, więc chyba dobrze, że rozłącza

Niemożliwe ,ponieważ wystarczy ,że wykasuje http1.post(tekst);
i pisze ,że jest ciągle połączony!
Ijeszcze jedno to jest kompoment idhttp1 (indy).