Datei Frei geben

[Timbuktu]

Guten Morgen liebe DelphiPraxis Member ^^

Ich hab hier ein kleines Problem, an dem ich mir schon seit längerem die Zähne ausbeiße und einfach keine Lösung finde. Ich hab auch schon in der Suche gesucht ohne Ende, aber einfach nichts helfendes gefunden.
Mein Problem ist, das ich mit folgendem Befehl eine txt-Datei erstelle, falls noch keine Vorhanden ist. Das funktioniert auch einwandfrei. Aber wenn ich mit einem anderen Befehl auf die txt-Datei zugreife kommt immer eine Win32 Fehlermeldung. Auch wenn ich normal über Windows die Datei öffnen will, kommt immer eine Meldung, das die Datei gerade wo anders geöffnet ist. Erst wenn ich das Programm geschloßen und neu gestartet habe kann ich auf die txt-Datei zugreifen.


Hiermit erstelle ich die txt-Datei und will Sie damit nachher auch wieder Auslesen

Delphi-Quellcode:

const LDB : String = 'LampenDB.txt';

function Auslesen(Datenbank: string):TStringArray;
var f: Textfile;
    a, Auswertung: integer;
    Zeile: TStringArray;
    Path: String;
begin
  Zeile:= Nil;
  Path:= extractfilepath(paramStr(0)) + 'LampenDB\';
  if DirectoryExists(Path) = False then                      //Wenn Pfad nicht angelegt ist
  begin
    CreateDir(Path);
    Auswertung:= FileCreate(Path + Datenbank);
    CreateDir(Path + 'Pics\');
    if Auswertung = -1 then
    begin
      ShowMessage('Datenbank konnt nicht erstellt werden.' + #13#10 + 'Eine Lösung wäre vielleicht, das Programm als            Administrator zu starten.');
    end;
    //hier die erstellte LampenDB.txt wieder frei geben?
    Exit;
  end;
  Path:= Path + Datenbank;

  AssignFile(f,Path);               //Die daten aus dem Dokument werden in die Variable f "geschoben"
  reset(f);                         //Geht an anfang der variable f
  A:= 0;
  while not EOF(f) do               //wenn nicht das ende vom dokument erreicht ist, dann
  begin
    Setlength(Zeile,A+1);
    readln(f,Zeile[A]);
    if Zeile[A] <> '' then
      A:= A + 1;
  end;

  CloseFile(f);                     //schließt das dokument wieder

  result := Zeile;
end;

Ich hab nicht sooo die Ahnung von Delphi, da ich programmieren ja erst in der Ausbildung angefangen hab ^^
Vielen Dank schonmal für die Hilfe

MfG
Timbuktu