[Страдалецъ]

Писать в такой файл надо почти так-же, как и читать.

Код:

AssignFile(f, 'c:\1.db');
Rewrite(f);
Rec.Country := 'Италия';
Rec.Sport := 'Баблап';
Rec.Person := 'Казанова';
Rec.Kind := Gold;
Write(f, Rec);
CloseFile(f);