1:
2:
3:
4:

 for schleife mit x
if schleifen

Label[x].caption := ergebnis der if schleifen					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TFormxxx.FillLabel(LabelIndex: Integer; Value: string);
var
  TC: TComponent;
begin
  TC := FindComponent('Label' + IntToStr(LabelIndex));
  if Assigned(TC) then
    TLabel(TC).Caption := Value;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TFormxxx.Button1Click(Sender: TObject);
var
  X: Integer;
  Wert: Integer;
begin
  for X := 1 to 30 do begin
    Wert := 2 * X; // oder so ...
    FillLabel(X, IntToStr(Wert)); // oder "FloatToStr()" oder "Format()"...
  end;
end;