[ramonibk]

Bueno igual que a mi me a echo falta supongo que alguno mas lo puede necesitar por lo cual pongo lo que he echo espero que sea util

procedure CargaBmp( Fichero: string; const QueImage: TImage);
var
 ElBmp		: TBitmap;
 Rectangulo   : TRect;
 EscalaX,
 EscalaY,
 Escala	   : Single;
begin
 ElBmp:=TBitmap.Create;
 try
  ElBmp.LoadFromFile( Fichero );
  EscalaX := 1.0;
  EscalaY := 1.0;
   if QueImage.Width < ElBmp.Width then
	EscalaX := QueImage.Width / ElBmp.Width;
   if QueImage.Height < ElBmp.Height then
		EscalaY := QueImage.Height / ElBmp.Height;
   if EscalaY < EscalaX then Escala:=EscalaY else Escala:=EscalaX;
   with Rectangulo do begin
	Right:=Trunc(ElBmp.Width * Escala);
	Bottom:=Trunc(ElBmp.Height * Escala);
	Left:=0;
	Top:=0;
	end;
 with QueImage.Picture.Bitmap do begin
  Width  := Rectangulo.Right;
  Height := Rectangulo.Bottom;
  Canvas.StretchDraw( Rectangulo,ElBmp );
 End;
finally
 ElBmp.Free;
end;