Работа с динамическими картинками

[krikaved]

Есть главная форма F_MainForm. На главной форме по нажатию на кнопку RzButton_Bloknot динамически появляется форма F_Bloknot:

procedure TF_MainForm.RzButton_BloknotClick(Sender: TObject);
begin
F_Bloknot:=TF_Bloknot.Create(Application);
F_Bloknot.ShowModal;
F_Bloknot.Free;
end;

На появившейся форме одновременно появляются динамически разного размера картинки. По закрытию формы картинки должны быть очищены.
Вопрос: как правильно создавать динамически картинки, чтобы как можно меньше использовать памяти? Использовать один JPG (JPG:=TJPEGImage.Create) или создавать каждый отдельно JPG, JPG1, JPG2 и т.д.?

procedure TF_Bloknot.FormActivate(Sender: TObject);
begin
JPG:=TJPEGImage.Create;
JPG.LoadFromFile('D:\Images\1.JPG');
Image1.Canvas.Draw(-15,-5,JPG);
JPG.Free;

JPG:=TJPEGImage.Create;
JPG.LoadFromFile('D:\Images\2.JPG');
Image2.Canvas.Draw(0,-17,JPG);
JPG.Free;

JPG:=TJPEGImage.Create;
JPG.LoadFromFile('D:\Images\3.JPG');
Image3.Canvas.Draw(0,-17,JPG);
JPG.Free;

JPG:=TJPEGImage.Create;
JPG.LoadFromFile('D:\Images\4.JPG');
Image4.Canvas.Draw(0,0,JPG);
JPG.Free;
end;

Нужно ли по закрытию формы делать так:

procedure TF_Bloknot.FormClose(Sender: TObject; var Action: TCloseAction);
begin
JPG.Free;
end;

[Volt]

У вас все правильно создавать каждый отдельно JPG, JPG1, JPG2 и т.д. не надо. По закрытию формы JPG.Free; не нужно так как в procedure TF_Bloknot.FormActivate(Sender: TObject); вы уже это сделали

[krikaved]

Спасибо!
У меня ещё по нажатии на соответствующую картинку открывается программа или папка. А для открытия программы или папки, что лучше использовать ShellExecute или WinApi или ещё что-то, чтобы меньше использовать памяти? Нужно ли что-то ещё очищать по закрытию формы?

procedure TF_Bloknot.Image1Click(Sender: TObject);
begin
ShellExecute(F_Bloknot.Handle, nil, PChar('excel.exe'), nil, nil, SW_ShowNormal);
Close;
end;

[Volt]

ShellExecute и есть из WinApi. Из привиденного закрывать не чего не надо