For Schleife in Abhängigkeit der Zeilen aus Listbox

[Alibi]

So ungefähr:

Delphi-Quellcode:

var
  deine_laenge, i: integer;
begin

  for i := 1 to [anzahl der radiobuttons] do
  begin
    if (FindComponent('Radiobutton' + inttostr(i)) as TRadioButton).Checked then
    begin
      deine_laenge := (FindComponent('ListBox' + inttostr(i)) as TListBox).count - 1;
      break;
    end;
  end;

  for i := 0 to deine_laenge do
  begin
    ///////
  end;

end;