[ProperDoze]

Код:

var
  File_1:TFileStream;
...

begin	
...

  File_1:=TFileStream.Create(filename, fmCreate or fmOpenWrite); // Открытие файла
  File_1.Seek(1, soFromEnd); // Выставление указателя в конец файла 
// Возможно вместо единицы ноль (уже не помню щас)))
 
  File_1.Write(Data,SizeOf( <type> ));  // Запись одного блока Data

	// вместо '<type>' надо указать тип твое записи DAta

  File_1.Free;

...
end;