Программа неправильно работает при запуске через Планировщик Заданий

        var f: text;
        Assign(f, 'C:\ProgramData\WH\Alert.txt');
        Rewrite(f);
        write(f, 'Encoding is wrong!');
        Close(f);
        execute('wrong.exe');

  OnClose := closing;
  MaximizeWindow;
  var x,y: integer;
  x := WindowWidth;
  y := WindowHeight;
  if Process.GetProcesses.Count(p -> p.ProcessName = 'explorer') > 0 then
  begin
    var p := System.Diagnostics.Process.Start('taskkill', '-im explorer.exe -f');
  end;
  MainForm.TopMost := true;
  for j: integer := 1 to 7 do
  begin
    arr[j][1] := random(0, WindowWidth);
    arr[j][2] := random(0, WindowHeight);
  end;
  try
    o := Picture.Create('o.png');
    o.Load('o.png');
  except
    
  end;

procedure toLog(msg : String);
const fName = 'x:\mylog.wrk';
begin
  var t : Text;
  if System.IO.File.Exists(fName) then
    t := OpenAppend(fName)
  else
    t := OpenWrite(fName);
  WriteLn(t, String.Format('{0:d/M/yyyy HH:mm:ss} : {1}', System.DateTime.Now, msg));
  Close(t);
end;
 
begin
  toLog('Запуск программы.');
  toLog('Ждём 50 мс');
  Sleep(50);
  toLog('Ждём 500 мс');
  Sleep(500);
  toLog('Ждём 5000 мс');
  Sleep(5000);
  toLog('Всё! Приехали...');
end.