Porqur al asignar una imagen a un campo la pierdo ?

[[mightydragonlor]]

De esta manera cambias el formato y la profundidad del la imagen a BMP, no altera el tamaño original.

Código Delphi [-]
function ToBMP(g: TGraphic): TBitMap;
begin
  try
    Result:=TBitmap.Create;
    Result.Width:= g.Width;
    Result.Height:= g.Height; 
    Result.Palette:=g.palette;
    Result.PixelFormat:=pf15bit;
    Result.Canvas.Draw(0,0,g);
  except
    Result:=nil;
  end;
end;