Image aus der DB "resizen" und ins ClipBoard kopieren

[Reinhardtinho]

*push*

Hallo zusammen,

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Bitmap : TBitmap;
begin
  Image1.Width := 10;
  Image1.Height := 10;

  Bitmap        := TBitmap.Create;

  try
    Bitmap.Width  := Image1.Width;
    Bitmap.Height := Image1.Height;

    Bitmap := Image1.Picture.Bitmap;

    Bitmap.SaveToFile('C:\Dokumente und Einstellungen\Lorenz.Reinhardt\Desktop\Bild.bmp');
  finally
    Bitmap.Free;
  end;
end;

Hiermit habe ich mal das Bild abgespeichert, aber die Größe ist gleich geblieben.

War das mit "Kopieren" gemeint oder habe ich es falsch umgesetzt?

Vielen Dank.

MFG
Lorenz