Spalten im listview?? + sortierteren + suchauswahl

[magsec_87]

Hallo,
danke für die hilfe.
Ich habs so probiert und da kommt immer die fehlermeldung: "Dateizugriff Verweigert"

Delphi-Quellcode:

type woerterbuch = record
            de: array[1..5] of string[25];
            en: array[1..5] of string[25];
            end;
     vokabellist = record
            de: array[1..5] of string[25];
            en: array[1..5] of string[25];
            gewesen : boolean;
            klasse : word;
            end;

var
  Form1     : TForm1;
  Datei     : TextFile;
  l         : TListItem;
  datei_name: string;
  data      : woerterbuch;
  woerter   : file of woerterbuch;
  vlist     : file of vokabellist;

  loades    : record
            de      : array[1..5] of string[25];
            en      : array[1..5] of string[25];
            gewesen : boolean;
            klasse  : word;
            end;

Delphi-Quellcode:

 assignFile(woerter,'Datenbank.rec');
  for i:=1 to 5 do
    begin
    data.de[i]:=loades.de[i];
    data.en[i]:=loades.en[i];
    write(woerter,data);
    end;
  reset(woerter);

  with listview1.items.add do
    begin
    if (sprache1_lbl.Caption='Deutsch') then
      begin
      l.Caption:=ltempd;
      l.SubItems.Add(ltempe);
      end;
    if (sprache1_lbl.Caption='Englisch') then
      begin
      l.Caption:=ltempe;
      l.SubItems.Add(ltempd);
      end;

Ich wollte bevor er die Eintragung (einzeleintragun) in die listview schreibt in einer datei (woerter) speichern!
Doch irgendwie find ich den fehler nicht!