Есть динамически созданные кнопки на которых имеется TNotife - своя функция OnClick сделанные циклом, есть много тхт файлов пути к которым забиты в мемо, есть вторая форма на которой находится лейбл.
Цель - Каждая динамически созданная кнопка должна передавать в лейбл своё значение.
Код:
procedure TForm1.Info(Sender: TObject);
var
i: integer;
f: textFile;
s1: string;
begin
for i:=0 to n do begin
str:=Memo1.Lines[i];
AssignFile(f, str);
Reset(f);
Readln(f, s1);
Form2.sLabel1.Caption:= s1;
CloseFile(f);
end;
Form2.Show;
end;
Сейчас этот код есс-но переводит значение s1 в кепшн лейбла последний текстовый файл который открывает данный цикл.
Проблема в том, что форма одна и как передавать нужное значение лейбла в зависимости от того какая именно нажата динамическая кнопка, а значит и какой именно файл открыт - я никак не могу понять.