procedure AddField(name :string; ft :string; len :integer);

AddField adds a field to the allocated memory. It accepts parameters: name, type and length. If this is Numeric field with a fractional part then length is equal to LEN_OF_FIELD + LEN_OF_FRACTIONAL * 256

var
  ok :integer;
begin
if NewDatabase then
begin
  AddField('Name',   'C', 20);
  AddField('Birth',  'D', 0);
  AddField('Sex',    'L', 0);
  AddField('Salary', 'N', 10 + 2*256);
  AddField('Notes',  'M', 0);
end;
CreateDatabase('clients.dbf', 5, 0);
end.