[suche] bild verkleinern <-- einfachsten weg

[gandime]

ja wie gesagt ich hab ka davon

procedure StretchDraw(var Rect: TRect; Graphic: TGraphic); Rect: TRect;
Graphic: TGraphic;

was muss ich dann z.b. für die beiden sachen eigeben damit ich der bild auf 500 X 500 picel bekommen

edit:
also soweit bin ich schonmal

Delphi-Quellcode:

  bitmap:=TBitmap.Create;
  bitmap.LoadFromFile('C:\bild.bmp');
  bitmap.canvas.StretchDraw({joa was soll da jetzt tolles reun});
  bitmap.SaveToFile('C:\bild2.bmp');