Klar, hier ist der Code. Ich habe mich an Quellen im Netz orientiert, und bin mit meinem Latein am Ende.
IF xInit THEN
CASE iState OF
0: //Datei mit Schreibrechten öffnen/erstellen
FileOpen(xExecute:= TRUE, sFileName:= sFileName, xExclusive:= FALSE, eFileMode:=...