Ako vidím, nie je to o nepochopení, ale o logickom rozmýšľaní...

No on je problem ten, že umim vytvořit tlačitka, ale vubec nechapu jak na to, aby každe tlačitko mělo svoji proceduru Button1Click a v ní ty přikazy.

už mam textak a v něm

Zapní1,http://192.168.1.15
Zapní2,http://192.168.1.20
Zapní3,http://192.168.1.28

procedure TForm1.Button1Click(Sender: TObject);
var
  lHTTP: TIdHTTP;
  s: string;
begin
  Beep;
  lHTTP := TIdHTTP.Create(nil);
  lHTTP.Request.BasicAuthentication:=True;
  lHTTP.Request.Username := 'admin';
  lHTTP.Request.Password := 'admin';

  try
    s:= lHTTP.Get('http://192.168.1.15');
  finally
    lHTTP.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 TS: TStringList;
 B: TButton;
 s,m:string;
 i:integer;
begin
  TS := TStringList.Create;
  TS.LoadFromFile('setup.txt');

  for i  := 0 to TS.Count-1 do
  begin
    s:= TS[i];
    B := TButton.Create(Self);
    B.Caption := Copy(s, 1, Pos(',', s)-1);
    m := Copy(s, Pos(',', s) + 1, MaxInt);
    B.Parent := Self;
    B.Height := 23;
    B.Width := 100;
    B.Left := 10;
    B.Top := 10 + i * 25;
    B.OnClick := Form1.Button1Click;
  end;
  TS.Free;
end;

Vykresli mi to ty 3 tlačitka a přepiše Caption
Jelikož je tam
B.OnClick := Form1.Button1Click;
Všechny tlačitka dělají to co je v procedure TForm1.Button1Click
Dal s tým nemohu pohnout.