Сохранение/чтение в нетипизированный файл массива используя потоки

type
  Ticq=record
       Uin: Cardinal;
       Name: string;
       mail: string;
       phone: string;
  end;
const
MaxSize=20;
var
  Form1: TForm1;
  ICQ: Ticq;
  MasIcq: array [1..MaxSize] of Ticq;
  p: Integer;

procedure TForm1.SaveFileClick(Sender: TObject);
var FName: string; num:Integer;
    F: TextFile;
begin
 if p=0 then
   begin
   ShowMessage('База пуста!');
   Exit;
   end
 else
SaveInFile.FileName := FName;
if SaveInFile.Execute then
 begin
  FName := SaveInFile.FileName;
  AssignFile(f,FName);
  Rewrite(f);
  for num:=1 to p do begin
   writeln(F,MasIcq[num].Uin);
   writeln(F,MasIcq[num].Name);
   writeln(F,MasICQ[num].Mail);
   writeln(F,MasICq[num].phone);
  end;
  CloseFile(F);
 end;
end;

procedure TForm1.SaveFileClick(Sender: TObject);
var FName: string; num:Integer;
    F: TFileStream;
begin
 if p=0 then
   begin
   ShowMessage('База пуста, введите хотя бы 1 контакт!');
   Exit;
   end
 else
if SaveInFile.Execute then
 begin
  FName := SaveInFile.FileName;
  F:= TFileStream.Create(FName, fmCreate or fmOpenWrite);
  try
   for num:=1 to p do begin
    F.WriteBuffer(MasIcq[num].Uin,SizeOf(MasIcq[num].Uin));
    F.WriteBuffer(MasIcq[num].Name,SizeOf(MasIcq[num].Name));
    F.WriteBuffer(MasICQ[num].Mail,SizeOf(MasICQ[num].Mail));
    F.WriteBuffer(MasICq[num].phone,SizeOf(MasICq[num].phone));
   end;
   finally
   FreeAndNil(F);
  end;
 end;
end;
 
procedure MasToBox;
var i,num:Integer;
begin
 num:=Length(MasIcq);
 for i:=1 to num do  begin
   with MasIcq[i] do
   Form1.ArrUins.Items.Add(IntToStr(Uin));
  end;
 p:=i;
end;
procedure TForm1.LoadFromFileClick(Sender: TObject);
var
  F: TFileStream;
  FName: string; num,i:Integer;
begin
if OpenFile.Execute then
 begin
  FName := OpenFile.FileName;
  F:= TFileStream.Create(FName, fmOpenRead);
  F.Read(MasIcq[1], Length(MasIcq)*SizeOf(MasIcq[1]));
  MasToBox;
  FreeAndNil(F);
 end;
end;

var
 n: Integer;
..
//Сначала следует записать размер массива
  F.WriteBuffer(Num, SizeOf(Num));
..
// Запись одного эл-та массива
  F.WriteBuffer(MasIcq[num].Uin,SizeOf(MasIcq[num].Uin));
  n := Length(MasIcq[num].Name) * SizeOf(Char);
  F.WriteBuffer(n, SizeOf(n));
  F.WriteBuffer(PChar(MasIcq[num].Name)^, n));
  n := Length(MasIcq[num].Mail) * SizeOf(Char);
  F.WriteBuffer(n, SizeOf(n));
  F.WriteBuffer(PChar(MasIcq[num].Mail)^, n));
  n := Length(MasIcq[num].Phone) * SizeOf(Char);
  F.WriteBuffer(n, SizeOf(n));
  F.WriteBuffer(PChar(MasIcq[num].Phone)^, n));
..
//Сначала следует прочитать записанный ранее размер массива и подготовить массив соотв.размера
  F.ReadBuffer(Num, SizeOf(Num));
 
// Чтение одного эл-та массива 
  F.ReadBuffer(MasIcq[i].Uin,SizeOf(MasIcq[i].Uin));
  F.ReadBuffer(n, SizeOf(n));
  SetLength(MasIcq[i].Name, n div SizeOf(Char));
  F.ReadBuffer(PChar(MasIcq[i].Name)^, n));
  F.ReadBuffer(n, SizeOf(n));
  SetLength(MasIcq[i].Mail, n div SizeOf(Char));
  F.ReadBuffer(PChar(MasIcq[i].Mail)^, n));
  F.ReadBuffer(n, SizeOf(n));
  SetLength(MasIcq[i].Phone, n div SizeOf(Char));
  F.ReadBuffer(PChar(MasIcq[i].Phone)^, n));

F.ReadBuffer(PChar(MasIcq[i].Name)^, n));

var
  s: String;
..
F.ReadBuffer(PChar(s)^, n));
MasIcq[i].Name := s;

  F.ReadBuffer(n, SizeOf(n)); // эта строчка куда у тебя делась, мыши съели ?)