oder ganz dynamisch:
Delphi-Quellcode:
procedure TForm1.MB(i: integer);
var List:TStringList;
begin
List:=TStringList.Create;
List.LoadFromFile('C:\Text.txt');
(findcomponent('Label'+inttostr(i)) as TLabel).Caption := List.Strings[i-1];
List.Free;
end;
Das macht aber nur Sinn wenn es recht viele Labels sind die eventuell dynamisch erzeugt wurden und auf jeden Fall nach dem Schema Label+Indexzahl benannt sein müssen.
phoenix