[YVitaliy]

без ограничения и дополнять пробелами до 1500

Тогда строка, кажись, сама преобразуется в AnsiString. Так почему сначала не задать ее?

Код:

mesg: AnsiString;