Grafik, die die gleiche Größe beibehalten soll

[Khabarakh]

Delphi-Quellcode:

var Bit: TBitmap; 
begin
  //Bit instanziieren, Bild laden, zeichnen oder wasauchimmer
with Image1 do
  StretchDraw(Rect(0, 0, Width, Height), Bit);

Das Bild wird einfach in das Image gequetscht, das Seitenverhältnis kann sich ändern.
Für konstantes Seitenverhältnis kannst du mal nach dem Thread von Prototypjack schauen.