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

[semo]

sowas fange ich immer wie folgt ab:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if bAktionLaeuftNoch then
    Exit;

  bAktionLaeuftNoch := True;

  // dein code hier....

  bAktionLaeuftNoch := False;
end;