{WriteBuf.PAS} { Пример программы для процедуры WriteBuf } { Компилировать в режиме Windows } { Используйте русские фонты в Win32 } Uses WinCrt, Strings; Var MyBuffer : PChar; Begin GetMem(MyBuffer, 80); MyBuffer:='Пример использования WriteBuf'; WriteBuf(MyBuffer, StrLen(MyBuffer)); End.