upst := 'Привет'; for i:=1 to length(upst) do upst[i]:= UpCase(upst[i]); MessageDlg(upst, mtInformation,[mbOk], 0);