Tstrem сохранение изображения

[Fellics{новичок}]

Всем доброго времени суток. Решил поучиться работать с TStream, начал писать программу по сохранению изображения из Image в файл, но видимо накосячил где-то. Подскажите где я ошибся. Заранее спасибо.

var f : Tfilestream;
g:TBlockStr;
a:array of byte;
s:string;
x:int64;
i:integer;
begin
 s:= '913.svg';
 g.data:=tmemorystream.create;
  image1.Picture.Bitmap.SaveToStream(g.Data);
   f := TFileStream.Create(s, fmCreate, fmShareExclusive) ;
   F.Position := F.Size;
   f.Write(g.Data,g.Data.Size);
   label1.Caption:=inttostr(g.Data.Size);

  image2.Picture.Bitmap.LoadFromStream(g.Data);