var F: TextFile; begin AssignFile(F, 'NEWFILE.$$$'); Rewrite(F); Writeln(F, 'Just created file with this text in it...'); CloseFile(F); end;