[ApxaHGe1]

Код:

var
f:text;
begin
onClosed
rewrite (f,'file.txt');
writeln (f, label1.caption);
writeln (f, label2.caption);
CloseFile (f);
onClick
rewrite (f,'file.txt');
writeln (f, label1.caption);
writeln (f, label2.caption);
CloseFile (f);