[tarek]

Есть динамически созданные кнопки на которых имеется 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 в кепшн лейбла последний текстовый файл который открывает данный цикл.
Проблема в том, что форма одна и как передавать нужное значение лейбла в зависимости от того какая именно нажата динамическая кнопка, а значит и какой именно файл открыт - я никак не могу понять.