Problemy z SMSami

Cześć
Od razu powiem, ze to sprawa zycia i śmierci.
Nie mogę napisać czegoś co wyśle smsa do ery i idei (z plusem jest ok).
Rozwiązania z dzialu źródła po prostu nie działają. Idea coś wymyśliła z obrazkami i nie wiem jak sie za to zabrać.
Jeśli ktoś może podesłać mi jakieś źródełko to będę wdzięczny. na pewno to wynagrodzę :) To naprawdę b. ważne. Proszę o pomoc.

no Idea wprowadzila graficzne tokeny - musisz wybadac ich sciezke na wygenerowanej stronie, bezposrednio pobrac obrazek na kompa, a potem zalaczyc tekst na nim wypisany do jednej ze zmiennych formularza. Co do Ery, to nic nie slyszalem zeby cos specjalnie zmieniali - robiles ten numer z ciachem na stronie glownej?

Nic z cookies nie robiłem. O co chodzi? Ja muszę napisać ten program...
Delphi

swego czasu widzialm taką procedurkę w programiku z Chipa(korzysta z indy):

procedure TForm1.ERA();
var
odbior,nadanie:TStringStream;
s:string;
i,i2:integer;
ok:boolean;
bufor:PChar;
begin
ok:=True;
odbior:=TStringStream.Create('');
nadanie:=TStringStream.Create('');
nadanie.WriteString('sms=1');
begin
IdHTTP1.Request.Accept:='/';
IdHTTP1.Request.Host:='boa.eragsm.com.pl';
IdHTTP1.Request.contenttype:='application/x-www-form-urlencoded';
IdHTTP1.Request.referer:='boa.eragsm.com.pl';
try
IdHTTP1.Post('http://boa.eragsm.com.pl/sms/sendsms.asp',nadanie,odbior);
except on Exception do
begin
ShowMessage('Problemy z połączeniem!!!');
ok:=False;
end;
end;
s:=odbior.DataString;
i:=pos('name="Code" value="',s);
s:=copy(s,i+19,100);
i2:=pos('"',s);
s:=copy(s,0,i2-1);
nadanie.free;
odbior.free;
end;
if ok then
begin
GetMem(Bufor,length(Tekst.text));
Tekst.GetTextBuf(Bufor,length(Tekst.text));
for i:=0 to length(Tekst.text) do
if bufor[i]=' ' then bufor[i]:='+';
nadanie:=TStringStream.Create('');
odbior:=TStringStream.Create('');
nadanie.WriteString('?bookopen=&numer='+Numer.Text+
'&ksiazka=&message='+StrPas(bufor)+
'&podpis='+Nadawca.Text+
'&kontakt=&Code='+s+'&Nadaj=++tak-nada%E6++');
FreeMem(Bufor,length(Tekst.text));
IdHTTP1.Request.Accept:='/';
IdHTTP1.Request.Host:='boa.eragsm.com.pl';
IdHTTP1.Request.referer:='boa.eragsm.com.pl';
IdHTTP1.Request.contenttype:='application/x-www-form-urlencoded';
try
IdHTTP1.Post('http://boa.eragsm.com.pl/sms/sendsms.asp',nadanie,odbior);
except on Exception do ShowMessage('Problemy z połączeniem!!!');
end;
if pos('Wiadomo¶ć dla numeru +48'+Numer.Text+' została wysłana!',odbior.DataString)0 then ShowMessage('SMS DOSTARCZONY') else ShowMessage('SMS NIEDOSTARCZONY');
nadanie.free;
odbior.free;
IdHTTP1.Disconnect;
end;
end;