Assign(F, 'VB de SSETI.txt');
Reset(F);
try
Writeln(F, 'VB de SETI');
finally
CloseFile(F);
end;

これではだめか？