program testUnicodeFileIO; uses Forms, Unit1 in 'Unit1.pas' {Form1}, AnsiStringFileUnit in '..\AnsiStringFileUnit.pas', UnicodeStringFileUnit in '..\UnicodeStringFileUnit.pas'; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.