Delphi - rus текст

[Vladimir-belikov]

Програмка по изменению строки, а именно: изменение регистра после точки и в начале строки, не работает с русскими буквами. Почему?

[Vladimir-belikov]

Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
st: string;
i, j: integer;
begin
st:=Edit1.Text;
i:=1;
while st[i]=' ' do inc(i, 1);
delete(st, 1, i-1);
i:=length(st);
while st[i]=' ' do begin
  delete(st, i, 1);
  dec(i, 1);
end;
if str[length(st)]<>'.'then st:=st+'.';

if IsCharLower(st[1]) then st[1]:=UpCase(st[1]);
for i:=1 to length(st)-1 do begin
  if st[i]='.' then begin
    j:=i;
    while ((st[j]=' ') or (st[j] ='.')) and (j<length(st)-1) do begin
      inc(j, 1);
      if st[j]<>' ' then st[j]:=UpCase(st[j]);
    end;
  end;
end;
Edit2.Text := st;
end;

[Alter]

Используйте

function AnsiUpperCase(const S: string): string;

function UpCase(ch :Char):Char;

- Только с английскими буквами работает.