Ашот Асланян,
Создай глобальную переменную
var OutFile: TextFile;
Потом создай и открой этот файл
AssigneFile(OutFile, 'myfile.txt');
Rewrite(OutFile);
Теперь можешь добавить переменную файла ко всем процедурам вывода
Wirite(OutFile, S[k]);
В конце программы закрой файл
CloseFile(OutFile);
Класс кнопки создай. Скажи ей, где она должна рисоваться. Пусть она и проверяет, находится ли курсор над ней или нет. В этой же кнопке хранить переменную с нужным действием
Ziaft, Если тебе нужно передавать изображение из приложения в приложение, то тогда одного TImage мало, нужно использовать тоже штатный компонент TTethering. Есть инструкции и примеры.
Создай глобальную переменную
var OutFile: TextFile;
Потом создай и открой этот файл
AssigneFile(OutFile, 'myfile.txt');
Rewrite(OutFile);
Теперь можешь добавить переменную файла ко всем процедурам вывода
Wirite(OutFile, S[k]);
В конце программы закрой файл
CloseFile(OutFile);