やる夫AA録2

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.