[NumLock]

а что, тут

Код:

mesg: string[256];

ошибки нет "String literals may have at most 255 elements"?

Версия Delphi: Delphi 7

делай так:

Код:

mesg: array [0..1499] of Char;