Pascal/Turbo Pascal - RE:Abrir un archivo y si no existe crea uno.

Con lo siuguiente:

{* Abre archivos de tipo TEXT *}
{* Si lo pudo crear, retorna TRUE. Si no lo pudo crear, retorna FASLE *}
Function OpenTxt(Var F :Text; A :PathStr) :Boolean;
Var
Status :Boolean;
Begin
Assign(F, A);
{$I-}
Reset(F);
{$I+}
Status := (IOResult=0);
If Not Status then
Begin
{$I-}
ReWrite(F);
{$I+}
Status := (IOResult=0);
End; {If}
OpenTxt := Status;
End; {OpenTxt}


Saudos ;-)