Извините за нубский вопрос (не хочу открывать новую тему): а как теперь передать в процедуру MyClick свою переменную?
Код:
procedure MyClick(Sender:TObject; var doc: string);
..........
file_name:='C:\file.doc';
title[i].OnClick:=MyClick (file_name);