Lista w bazie danych

mam problemik i nie mogę sobie z nim poradzić.... otóż dotyczy on Delphi... a dokładniej listy w bazie danych... otóż jak zrobić aby obok liczby kolejnej - wpisu w bazie danych - dodać np. Nazwisko (zadeklarowane w polu Edit.1.Text) o ile z zapisem nie ma problemu to z wyświetleniem (listy z Nazwiskiem w listboxie) jest bo wyświetla mi całą listę o jednym nazwisku - na którym uprzednio kliknę....
jeżeli ktoś wie o co mi chodzi i wie jak to zrobić to proszę o pomoc. ;)

procedura wygląda tak (na razie tylko pojawia się tylko liczba kolejna zapisu):

procedure TForm1.ShowRecord;
var
DatBase: File of TDatbase;
i : Integer;
begin
AssignFile(Datbase, DatName);
if not FileExists(DatName) then Exit else Reset(DatBase);
listbox1.Clear;

for I := 0 to FileSize(DatBase)-1 do
listbox1.Items.Add(IntToStr(i+1));
label2.Caption := (IntToStr(i));

CloseFile(DatBase);

end;

Eh ... Mógłbyś to jakoś sensownie wytłumaczyć ( przykład byłby niezły :d ), bo jakoś nie bardzo mogę zrozumieć, o co ci chodzi :/

// nie cytuj całego posta! - Ł

A może posłuż się po prostu jakąś prawdziwą bazą danych(mam na myśli SZBD), a nie czymś takim...

głownie chodzi mi o ten zapis:
listbox1.Items.Add(IntToStr(i+1)); * dodawanie kolejnego wpisu z kolejną liczbą *
label2.Caption := (IntToStr(i)); // wyświetlenie aktualnej liczby wpisów w bazie /

i jeżeli dodam teraz zadeklarowane pole edit1.Text ( w DB.Nazwisko := Edit1.Text; a baza przechowuje dane poprzez: TDatbase = packed record )

wychodzi mi takie cos: listbox1.Items.Add(IntToStr(i+1)+ Edit1.Text);

owszem, wyświetli mi się nazwisko, ale po dodaniu drugiego (i każdego kolejnego "gościa" ) do bazy będzie widniało jedno nazwisko przez całą listę, no i chodzi mi o to aby były poszczególne nazwiska na liście, a nie tylko to jedno i to na całej liście. Może użyć jakiejś procedury, albo coś, aby wyszukiwała "nazwisko" w pliku bazy danych i po prostu wczytywała tę informację na listę listboxa ?

jakby ktoś miał podobny problem - to znalazłem rozwiązanie (... i na razie działa)

procedure TForm1.ShowRecord;

var
DatBase: File of TDatbase;
i : Integer;

begin
AssignFile(Datbase, DatName);
if not FileExists(DatName) then exit else Reset(DatBase);

for I := 0 to FileSize(DatBase)-1 do
label2.Caption := (IntToStr(i+1));
listbox1.Items.Add(label2.Caption + '. ' + Edit1.Text + (' ') + Edit2.Text);

CloseFile(DatBase);

end;