[NKVD]

Сделал так.

Код:

procedure TObraz.WriteToFile(const AFileStream: TStream);
var
  //F: TFileStream;
  i:Integer;
begin
AFileStream.Seek(0, soFromEnd);
for i := 1 to High(X) do
  AFileStream.WriteBuffer(X[i], SizeOf(X[i]));
for i := 1 to High(T) do
  AFileStream.WriteBuffer(T[i], SizeOf(T[i]));
AFileStream.WriteBuffer(Pointer(sq)^, Length(sq)); /////////////////////////////////////////
end;

procedure TForm4.Button1Click(Sender: TObject);
var
  Obr:TObraz;
  F: TFileStream;
begin
F:=TFileStream.Create('Obr.txt', fmCreate or fmOpenReadWrite);
//F.Seek(0, soFromEnd);
Obr:=TObraz.Create(StringGrid1,StringGrid1.ColCount,StringGrid1.RowCount,StrToInt(Edit1.Text),StrToInt(Edit2.Text),StrToInt(Edit3.Text),StrToInt(Edit4.Text),Edit5.Text);
Obr.WriteToFile(F);
Obr.Free;
Obr:=nil;
FreeAndNil(F);
end;

Все равно никакого эффекта(