Автоматически подогнать изображение под экран - PascalABC.NET

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

Доброго времени суток! Такая проблема: при запуске приложения по краям от картинки остаются белые полосы. Нужно растянуть картинку на весь экран, причём на любом разрешении. Возможно ли это? И если возможно, то как?

Решение задачи: «Автоматически подогнать изображение под экран»

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

uses graphABC;
var b:Picture;
begin
b:=Picture.Create('1.jpg');
setwindowsize(b.Width,b.Height);
b.Draw(0,0,window.Width,window.Height);
end.

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

Объявляется переменная b типа Picture, которая инициализируется созданием нового объекта Picture с именем '1.jpg'.
Устанавливается размер окна равным ширине и высоте изображения.
Вызывается метод Draw объекта b, который отображает изображение в окне начиная с координаты (0,0) и заканчивая координатой (window.Width, window.Height).