writebuf.pas

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