запись и чтение изображения в файл своего расширения

type  TMember = record
    name  : string[50];
    eMail : string[30];
    Posts : LongInt;
    end;
var
  Form1: TForm1;
  Members : array[1..50] of TMember;
 
procedure TForm1.Button1Click(Sender: TObject);// по нажатию кнопки идет запись информации в файл 'd:\MyDocument.pg'
var  F : file of TMember;
 i: integer;
begin
 Members[1].name:='___Nikolay';
  Members[1].eMail:='DelphiWorld@mail.ru';
  Members[1].Posts:=10;
  Members[2].name:='Sveta';
  Members[2].eMail:='sveta29@mail.ru';
  Members[2].Posts:=28;
  Members[3].name:='Elena';
  Members[3].eMail:='malisheva_e@rambler.ru';
  Members[3].Posts:=5;
AssignFile(F,'d:\MyDocument.pg');
Rewrite(F);
try    for i:= 1 to 50 do
write (F, Members[i]);
finally    CloseFile(F);
end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);// здесь считуються нужная информация
var  ReadMembers: array[1..50] of TMember;
F: file of TMember;
i: integer;
begin
AssignFile(F,'d:\MyDocument.pg');
Reset(F);
try    i:=0;
while not Eof(F) do
begin      read (F, ReadMembers[i]);
       ////////////////////////
       StringGrid1.Cells[0,i]:=ReadMembers[i].name;// видно, что можно обратится к любому значению с файла
       StringGrid1.Cells[1,i]:=ReadMembers[i].eMail;
       StringGrid1.Cells[2,i]:=IntToStr(ReadMembers[i].Posts);
       ////////////////////////
       i:=i+1;
       end;
       finally
       CloseFile(F);
       end;
end;