结构类型写入文件但是我想在之前或者之后再写点别的数据

结构类型写入文件代码如下。但是我想在之前或者之后再写点别的数据，比如再写个'123'
该怎么写？注：不能把123作为结构的一部分：）unit Unit1;interface uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls; type 
  RecordItem=record 
    RecordID: integer; 
    RecordName: string[20]; 
  end;   TForm1 = class(TForm) 
    Button1: TButton; 
    Button2: TButton; 
    ListBox1: TListBox; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; var 
  Form1: TForm1; implementation {$R *.DFM}procedure TForm1.Button1Click(Sender: TObject); 
var 
  i:integer;
  RecordArray: RecordItem;
  F:File of RecordItem;
begin
  AssignFile(F, 'record.fil');
  reset(F);
  for i:=1 to 10 do
  begin
    with RecordArray do
    begin
      RecordID:=234;
      RecordName:='aaa';
    end;
    write(F, RecordArray);                  //比如在这之前我想写入一个123
  end;
  CloseFile(F); 
end; procedure TForm1.Button2Click(Sender: TObject); 
var 
  i:integer; 
  RecordBuff:RecordItem; 
  F:File of RecordItem; 
begin 
  AssignFile(F, 'record.fil'); 
  Reset(F); 
  while not eof(F) do 
  begin 
    read(F, RecordBuff); 
    Listbox1.Items.Add(inttostr(RecordBuff.RecordID)); 
    Listbox1.Items.Add(RecordBuff.RecordName); 
  end; 
  CloseFile(F); 
end; end.