[ecfisa]

Hola yn4v4s.

Revisa este enlace : Una ayuda con Imágenes PNG, aunque, tratándose de un TImage, tendrías que hacer unos pequeños cambios:

Código Delphi [-]
...
implementation
{$R imagen.res} // archivo de recurso

uses PngImage;  

procedure LoadPngFromResource(const ResName: TFileName; const Index: Integer; BM: TBitmap);
var
  RE : TResourceStream;
begin
  with TPngObject.Create do
  try
    RE  := TResourceStream.Create(hInstance, '#'+ IntToStr(Index), RT_RCDATA);
    try
      RE.Seek(0, soFromBeginning);
      LoadFromStream(RE);
      AssignTo(BM);
    finally
      RE.Free;
    end;
  finally
    Free;
  end;
end;

// Ejemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadPngFromResource('IMAGEN.RES', 1, Image1.Picture.Bitmap);
end;

Saludos