JPG verkleinern

[agm65]

zu deinem sample source, also ich möchte ein jpg verkleiner auf 1024x768 pixel...die file ist original 300kb groß. wenn ich das bild jetzt verkleinere ist sie 3mb groß, abwohl sie ja vorher kleiner war ? was stimmt hier nicht ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  tbmp: TBitmap32;
  SaveDlg: TSaveDialog;
begin
  with TOpenPictureDialog.Create(nil) do
  begin
    if Execute then
    begin
      Image321.Bitmap.LoadFromFile(FileName);
      tbmp := TBitmap32.Create;
      tbmp.SetSize(1024, 768);
      tbmp.Draw(tbmp.BoundsRect, Image321.Bitmap.BoundsRect, Image321.Bitmap);
      imgPreview.Bitmap.Assign(tbmp);

      SaveDlg := TSaveDialog.Create(nil);
      if SaveDlg.Execute then
        tbmp.SaveToFile(SaveDlg.FileName);
      SaveDlg.Free;

      tbmp.Free;
    end;
  end;
end;