Delphi. Автоматическое добавление кода клиента

[Neroaz]

Surname:=edit1.Text;
Name:=edit2.Text;
PersonalCode:=edit3.Text;
Phone:=edit4.Text;
Adress:=edit5.Text;
Seek (F, FileSize(F));
Write(F,ie);

Здесь я использовал тип Record и добавил все значения в файл. А как сделать чтобы в файл добавлялся код клиента. Первый клиент - номер один.
Второй клиент - 2 и .т.д.

[Art_Divin]

дописывай в файл еще одну строку до или после этого кода с номером записи...
например вот так

writeln('#'+code);

# для того, чтобы посчитать, какой code записывать

while not eof(file) do begin
readln(str);
if str[1]='#' then Inc(code);
end;

что-то типа этого

[Neroaz]

а по другому можно еще как-то? может через массив?
Code:=mas[1..1000];
...
твой вариант не совсем подходит для моей задачи, дело в том что мне нужно все это вывести в StringGrid, а это будет на мой взгляд проблематично, не?

[Neroaz]

Есть другие варианты?

[Art_Divin]

создай идентификационное поле в твоей record, туда записывай порядковый номер записи, который будешь брать из размерности считанного массива, обявленного типом твоей record...
а в stringgrid добавить легко...

var
 mass: array [1..100] of TMyRecord;
begin
 {
Здесь будешь заполнять поле идентификационного поля создающейся записи посредством ф-и id:=high(mass)+1;
}
end.

[Neroaz]

type TInternet=record
ClientCode:integer; //так?
Surname:string[12];
name:string[12];
PersonalCode:string[12];

это добавление в StringGrid

SetLength(mas,length(mas)+1);
mass[length(mass)-1].ClientCode:=;
mas[length(mas)-1].Surname:=Edit1.Text;
mas[length(mas)-1].name:=Edit2.Text;
mas[length(mas)-1].PersonalCode:=Edit3.Text;
mas[length(mas)-1].Phone:=Edit4.Text;
mas[length(mas)-1].Adress:=Edit5.Text;

Подскажите как правильно