1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Function Diskwrite: Boolean;

Var F: Text;

Begin
  Assign(F, '\TEST.DAT');
  {$I-}
  Rewrite(F);
  Writeln(F, 'Test !');
  Close(F);
  Erase(F);
  {$I+}
  If (IoResult = 0) Then Begin
     DiskWrite := True;
  End  {* IF *}
  Else Begin
     DiskWrite := False;
  End; {* Else *}
End; {* Procedure *}