Procedure aufrufen...

[xineohp]

moin,

wie wärs mit:

Delphi-Quellcode:

procedure TForm1.MB(i: integer);
var List:TStringList;
begin
     List:=TStringList.Create;
     List.LoadFromFile('C:\Text.txt');
     case i of
       1: Label1.Caption:=List.Strings[0];
       2: Label2.Caption:=List.Strings[1];
       3: Label3.Caption:=List.Strings[2];
     end;
     List.Free;
end;

und

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  MB(1);  //bzw. 2 oder 3
end;

phoenix