Изменение первой буквы

[Костя]

Здраствуйте.
Подскажите, пожалуйста, как сделать чтобы после ввода в поле Edit определенного слова (например, фамилии) маленькими буквами, первая буква становилась большой автоматически. Если можете поделитесь, пожалуйста, кодом.

[KORN]

не судите строго за стиль... но главное это работает...

procedure TForm1.Edit1Change(Sender: TObject);
var
  s,a: string;
begin
  if edit1.Text<>'' then
  begin
  a:=edit1.Text;
  s:=copy(a, 1,1);
  s:=ansiupper(pchar(s));
  delete(a, 1, 1);
  edit1.Text:=s+a;
  edit1.SelStart:=length(edit1.Text);
  end;
end;

[Карась]

И это тоже

case mes[1] of
  Chr(160)..Chr(175) : mes[1] := Chr(Ord(mes[1]) - 32);
  Chr(224)..Chr(239) : mes[1] := Chr(Ord(mes[1]) - 80);
end;

Только надо подогнать под Едит.

Гы... в консольном приложении работает.. надо подправлять по таблице.

[Костя]

Большое спасибо за помощь!

[mihali4]

А это мой способ:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)=1 then
begin
Edit1.Text:=AnsiUpperCase(Edit1.Text);
Edit1.SelStart:=2;
end;
end;