var F1, F2, S : String; I: integer; label a; begin FileDelete(AppPath +'LastFiles.ini'); F1 := FileName; if F1 = '' then begin ActionExecuteOfString('fileExit') exit; end else begin IniWriteStr( AppPath +'LastFiles.ini', 'LastWindow', 'Current', F1 ); ActionExecuteOfString('fileNewText'); ActionExecuteOfString('windCloseThis'); end; a: I := I + 1; S := IntToStr(I); F2 := FileName; if F2 = '' then; else begin; IniWriteStr( AppPath +'LastFiles.ini', 'LastFiles', 'File'+S, F2 ); ActionExecuteOfString('windCloseThis'); goto a; end; IniWriteStr( AppPath +'LastFiles.ini', 'LastFiles', 'Num', S ); ActionExecuteOfString('fileExit'); end.