[Beast]

Спасибо, все заработало, если не затруднит, можно пояснить следующий код:

Код:

 P := Edit1.SelStart;
 S := AnsiUppercase(Edit1.Text[1]) + Copy(Edit1.Text, 2, 255);