Datei kann nicht geschrieben werden - Warum und wie ändern?

[torud]

Hier mal der Code der FormCreate:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
    web.navigate('about:blank');
    App_Path:=ExtractFileDir(Application.ExeName);
    If not (AnsiLastChar(App_Path)='\') then App_Path := App_Path + '\';

    Txt_Path := App_Path + 'txt\';
    Css_Path := App_Path + 'css\';
    Pvw_Path := App_Path + 'preview\';
    ed_dir.Text:=Txt_Path;
    {usw.}
end;

Wie ich schon sagte, wenn es ein Problem mit den Benutzerrechten wäre, dürfte es doch nie klappen und nicht nur manchmal wie bei mir. Beim ersten mal klappt es komischerweise und wenn ich dem Tool genug Zeit gebe, bleibt auch alles schön. Habe ich aber nen nervösen Finger und drück den Button 2 oder 3 mal direkt hintereinander, dann kommt es zu dieser Fehlermeldung. Komisch, oder!?