cambiar el tamaño de los gráficos

[adebonis]

Hola. Tengo que realizar la siguente tarea:

A partir de unos ficheros .bmp de los que no sé su medida, y pueden ser diferentes entre sí, debo traspasarlos a un componente TBitmap, pero este componente tiene unas medidas fijas (1122 de alto por 794 de alto) y quisiera que el gráfico no me quedara cortado tal como me pasa ahoroa, sino que mantuviera toda su imagen. Lo mismo que hace la propiedad Stretch del componente TImage.

Gracias.

[andres1569]

procedure PegaImagenAjustada (BitmapFijo: TBitmap; FileName: String);
var
  ABitmap : TBitmap;
begin
  ABitmap := TBitmap.Create;
  try  
    ABitmap.LoadFromFile (FileName);
    with BitmapFijo do
      Canvas.StrechtDraw (Rect (0, 0, Width, Height), ABitmap);
  finally
    ABitmap.Free;
  end;
end;

NOTA: Se supone que BitmapFijo ya mide eso que tu quieres, 1122 x 794