Полноэкранный режим + разрешение экрана

[Beginner94]

Всем привет!
Разработал программу у себя на компе(разрешение экрана 1366х768) в полноэкранном режиме(свойство формы WindowState=WSMaximized). В программе присутствуют панели, имейджи, лейбелы и т.д. Запустив готовый скомпилированный экзешник на нетбуке(разрешение экрана 1024x600) почти половина программы не поместилась(не отобразилась) на экране нетбука. Как написать универсальную программу, которая бы нормально(во весь экран) отображалсь при любом разрешении экрана. Прогуглив инет и испробовав готовые коды, должного рез-та не добился. К примеру использовал след.код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  ScreenWidth: Integer = 1366;
  ScreenHeight: Integer = 768;
  
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var x, y: LongInt;
begin
Form1.WindowState:=wsMaximized;
Image1.Align:=alClient;
Image1.Stretch:=True;
{Image1.Proportional:=True;}

Image2.Align:=alClient;
Image2.Stretch:=True;
{Image2.Proportional:=True;}
scaled := true;
  x := getSystemMetrics(SM_CXSCREEN);
  y := getSystemMetrics(SM_CYSCREEN);
  if (x <> ScreenHeight) or (y <> ScreenWidth) then
  begin
    Form1.height := Form1.height * x div ScreenWidth;
    Form1.width := Form1.width * y div ScreenHeight;
  end;

 if x <> ScreenWidth then
    scaleBy(x, ScreenWidth);  
end;

end.

Результат таков, что титульный Image(который расположен на форме отображается нормально при любом разрешении экрана), а компонент Panel и Image(который расположен на панели) по ширине отображается нормально, а высота отображается НЕ нормально, а именно меньше чем должна быть,.
Приветствуются любая помощь или же советы. Заранее спасибо!

[Poma][a]

ScreenWidth: Integer = 1366;
ScreenHeight: Integer = 768;

Косяк тут..

Нужно что бы
ScreenWidht был равен GetScreenWidht
и ScreenHeight был равен GetScreenHeight

Интересно, а можно сразу в const это прописать..
P.S. Если что, с Дельфи не знаком

[Beginner94]

ScreenWidth: Integer = 1366;
ScreenHeight: Integer = 768;

Это разрешение экрана при котором я разрабатывал(моделировал, проектировал) приложение в Delphi, другими словами исходное разрешение.

x := getSystemMetrics(SM_CXSCREEN);
y := getSystemMetrics(SM_CYSCREEN);

А вот этот кусок кода определяет текущее разрешение экрана, если я не ошибаюсь. Забыл упомянуть, что я начинающий программист. Проверку приложения делал след.образом:
1) Компилировал приложение с вышеупомянутым кодом с разрешением экрана 1366х768.
2) Менял разрешение экрана на 800х600 и 1152х864, а потом запускал уже готовый скомпилированный exeшник. Результаты указал в 1-ом сообщении.