Link açmak sorun

[ready4die]

merhaba
ben inet'le linkleri istediğim gibi açamıyorum. asıl yapmak istediğim 2 tane edit olacak 1 tane listbox edit1 site.com edit2 /a.php listboxtada ekli elemanlar olacak örn :
listbox ;
?id=1
?id=2
?id=3
?id=4
gibi
ben bunları
inet1.openurl(Edit1.Text+Edit2.Text+Listbox1.items[0]); ile 1 kere açıyorum ama asıl yapmak istediğim
itemleri yanyana eklemek
yani
http://www.site.com/a.php?id=1,?id=2,?id=3,?id=5 gibi açmak istiyorum virgüller olacak
Edit1.Text Edit2.Text Listbox Elemanları

ve sayfadan istediğim verileri çekeceğim bunu yapabiliyorum üstteki olayı 2 gündür uğraşıyorum ama yapamadım malesef yardım lütfen.
teşekkürler

[Search]

Arkadasım sana örnek olması amacıyla yazıyorum...

sen kendine gore uyarlarsın....

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  j:integer;
  value:string;
begin
     for j:=0 to  ListBox1.Items.Count-1 do
        begin
          value:=value+ListBox1.Items[j]+',';
        end;
     Memo1.lines.Text:=Edit1.Text+Edit2.Text+value;
 end; 

Fazla ugrasamıyorum en sonda bir virgul fazla olabilir onu da sen halledersin

kolay gelsin...