Vielleicht hilft dir ja eine kleine Änderung am Code:
Delphi-Quellcode:
unit1:
procedure TForm1.FormCreate(Sender: TObject);
begin
tische := TStringList.Create;
tische.LoadFromFile('tische.txt');
...
procedure TForm1.Image1Click(Sender: TObject);
begin
eigenschaften_nr := 1;
Form2.Show;
end;
unit2:
procedure TForm2.FormShow(Sender: TObject);
begin
label2.Caption := tische.Strings[eigenschaften_nr];
end;
...
marabu