var
 i:Integer;Potok:TFileStream;Potok1:TMemoryStream;
begin
 Potok:=TFileStream.Create('f:\MyBase.mmt',fmOpenRead or fmShareDenyNone);
 Potok1:=TMemoryStream.Create;
 Potok.ReadBuffer(i,4);//Read size picture
 Potok1.CopyFrom(Potok,i);//Read picture in memory
 Potok1.Position:=0;
 Image1.Picture.Bitmap.LoadFromStream(Potok1);//Load picture in IMAGE1
 Potok1.Clear;
 .......
 .......
 Potok.Free;
 Potok1.Free;

end;