[NumLock]

как обычно ошибка в 13 строке скорее всего. чтобы проверить компьютер и Delphi сделай тоже самое на новом проекте.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Width:=Screen.Width;
end;