[ecfisa]

Hola.

A mi me lo descomprime perfectamente... pero no te preocupes es poco código, aquí lo pongo.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Jpeg;

type
  TImage = class(ExtCtrls.TImage);
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormShow(Sender: TObject);
  private
    procedure ImageMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Caption:= Format('X:%3d Y:%3d',[X,Y]);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\UNA_IMAGEN.jpg');
  Image1.OnMouseMove:= ImageMouseMove;
  Image1.Stretch:= True;
end;

end.

Para probarlo colocá una imágen en la misma carpeta donde resida el ejemplo o cambiá donde dice 'ExtractFilePath...' por ruta+nombre de imágen.

Un saludo.