Usando TStream para gravar informações como numero, bitmaps etc

// Usando TStream para gravar informações como numero, bitmaps..

type

  TSkin = record

    Numero: Integer;

  end;

var

  Skin    : TSkin;

  FileSkin: TFileStream;

// Salvar em disco  

Skin.Numero := 10;

FileSkin := TFileStream.Create('c:\x.skn', fmCreate);

FileSkin.Position := 0;

FileSkin.WriteBuffer(Skin, SizeOf(Skin));

FundoImage.Picture.Bitmap.SaveToStream(FileSkin); // FundoImage está na tela TImage

FileSkin.Free;

// carregar do disco

FileSkin := TFileStream.Create('c:\x.skn', fmOpenRead);

FileSkin.Position := 0;

FileSkin.ReadBuffer(Skin, SizeOf(Skin));

FundoImage.Picture.Bitmap.LoadFromStream(FileSkin);

FileSkin.Free;

Tag := Skin.Numero;