[Моторокер]

На какое событие надо менять регистр?

Код:

S:= memo1.Lines[i];
S[1]:= G_CharToUpper(S[1]);
memo1.Lines[i]:= S;

G_CharToUpper - функция из модуля AcedStrings пакета AcetUtils. Заменяет регистр одного символа. Можно написать и свою.