[ixMike]

Ahora mismo no tengo Delphi a mano, pero estoy seguro de que esto funciona:

Código Delphi [-]
procedure TfSplash.FormCreate(Sender: TObject);
 var
    Corriente   : TResourceStream;
    Imagen      : TBitmap;
 begin
   Imagen:=TBitmap.Create;
   Corriente:=TResourceStream.Create(hInstance, '#1', RT_RCDATA );
   Corriente.Seek(0,soFromBeginning);
   Imagen.LoadFromStream(Corriente);
   Image1.Canvas.Draw(0,0,Imagen);
   Imagen.Free;
   Corriente.Free;
 end;

Salu2.