Textdatei anlegen

[danku]

Mein Proggie prüft nach dem Starten ob eine Textdatei vorhanden ist oder nicht.
Sobald nämlich das aktive Edit-Feld verlassen wird,
wird automatisch der Wert in Txt gespeichert. Das geht ja nicht wenn keine angelegt wurde.

Delphi-Quellcode:

if not FileExists(s) then
  begin
   Write('BMI.TXT');  :roll: 
    end;

wie kann man erreichen, daß eine textdatei angelegt wird?