Textdatei mit Filelock öffnen und zeilenweise auslesen

[whiteF]

danke für dein beitrag p80286,

ich meine folgendes:
Öffne mal die eine textdatei (>filename) mit dem Editor (Notepad) und dann erst führe dein code aus.
Danach die Delphi Anwendung und Editor/Notepad schliessen und die Textdatei erneut mit dem Editor öffnen.
Der String "Teststring" ist nun in der Textdatei obwohl der Editor bereits vor ausführung des codes die datei geöffnet hatte.

Ich möchte das mein Programm mir dann sagen soll, "stop, die datei ist bereits geöffnet. mache was anderes anstatt die datei zu öffnen".
Da letztendlich mein Programm 2 mal ausgeführt wird, möchte ich prüfen ob die datei bereits mit schreibrechten geöffnet ist.