Как сделать растягивание фото при растягивании на весь экран? - PascalABC.NET

Формулировка задачи:

Как вы уже поняли из названия темы надо сделать чтобы фотография растягивалась во весь экран. Во вложении №1 всё нормально. А во вложении №2 я растянул во весь экран, а так как фото меньше разрешения экрана то в правой стороне экрана появились зелёные поля. Так вот, как сделать так чтобы при растягивании на весь экран фото в программе тоже растягивалось?

Решение задачи: «Как сделать растягивание фото при растягивании на весь экран?»

Листинг программы

uses
  GraphABC;
 
procedure Show;
begin
  LockDrawing;
  ClearWindow(clGreen);
  SetBrushcolor(clGreen);
  DrawTextCentered(1, 1, Window.Width, 20, 'Моя программа');
  var p : Picture := New Picture('гусь.png');
  p.Draw(1, 20, Window.Width, Window.Height);
  Redraw;
end;
  
begin
  Show;
  OnResize := Show;
end.

Объяснение кода листинга программы

Импортируется модуль GraphABC.
Определена процедура Show.
Приостанавливается рисование.
Очищается окно.
Устанавливается цвет кисти.
В центре окна рисуется текст.
Создается объект Picture с именем p и указывается имя файла 'гусь.png'.
Объект Picture рисуется на экране.
Обновляется экран.
Код в процедуре Show завершен.
При изменении размера окна выполняется процедура Show.
Код в главном блоке завершен.