procedure TForm1.Button1Click(Sender: TObject);
var AJpg: TJPEGImage;
begin
AJpg := TJPEGImage.Create;
if OpenPictureDialog1.Execute then
begin
AJpg.LoadFromFile(OpenPictureDialog1.FileName);
SavePicToMiniature(AJpg, 320, 240);
Image1.Picture.LoadFromFile('C:\temp\minijpg.jpg');
end;
AJpg.Free;
end;