Первый символ строки с заглавной буквы - Delphi

procedure TForm1.Button1Click(Sender: TObject);

var strForEdit1 : string;

begin
strForEdit1 := Edit1.Text;
strForEdit1[1] := UpCase(strForEdit1[1]);
Edit1.text := strForEdit1
end;

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.