Labels vertikal dynamisch einordnen?

[stahli]

Du könntest eine Funktion nutzen, der Du die Label übergibst und die Y automatisch incrementiert.
Etwa so:

Delphi-Quellcode:

function ShowLabel(aLabel: TLabel; var Y: Integer);
begin
  aLabel.Top := Y;
  ...
  Inc(Y, 16);
end; 


...
  Y := 0;
  ShowLabel(LabelA, Y);
  ShowLabel(LabelB, Y);
...

Dann lassen sich leicht Anweisungen dazwischen fügen.