Строчные буквы в заглавные и наоборот Delphi 7

[tarakan1983]

Здраствуйте подскажите как правильно сделать в такой ситуации:
Есть 3 edita Фамилия Имя Отчество. Нужно чтобы в них всегда начиналось с больших букв, а остальные были маленькие и неважно как они вводились изначально напимер сИДОРОВ пЕтР ИВАнович - стало Сидоров Петр Иванович. Есть функция str:=AnsiUpperCase(str);
она переводит строчные в заглавные, а как наоборот???
и как мне найти именно первую букву?
Спасибо.

[KORN]

если ты вводишь текст сам то делай так, на OnChange

s:=copy(edit1.text, 1, 1); // копируем первый символ
ansiappercase(s);
a:=edit1.text;
delete(a, 1, 1); // удаляем первый символ
ansilowercase(a);
edit1.text:=s+a;

что то вроде этого...

[tarakan1983]

Перевод заглавных букв в строчные

function MCase(const s: string): string;
     var
    i: Integer;
  begin
    Result := s;
    for i := 1 to Length(s) do
    begin
      case s[i] of
        'A'..'Z',
          'А'..'Я': Result[i] := Chr(Ord(s[i]) + 32);
        'Ё': Result[i] := 'ё';
        'Ѓ': Result[i] := 'ѓ';
        'Ґ': Result[i] := 'ґ';
        'Є': Result[i] := 'є';
        'Ї': Result[i] := 'ї';
        'І': Result[i] := 'і';
        'Ѕ': Result[i] := 'ѕ';
      end;
    end;
  end;

Сделал так

procedure TFmFL.Button1Click(Sender: TObject);
   var
   str,nach,konec : string;
   i: integer;

      begin
      str:= edit1.Text;
      length(str);
      nach:=AnsiUpperCase(copy(str,1,1));
      konec:=MCase(copy(str,2,i));
      str:= nach + konec;
      showmessage(str);
      end;

end.

[XuTpbIu]

Есть ещё функция AnsiLowerCase:

var
	TmpStr: String;
begin
  TmpStr := Copy(Edit1.Text, 2, Length(Edit1.Text) - 1);
  Edit1.Text := AnsiUpperCase(Edit1.Text[1]) + AnsiLowerCase(TmpStr);
end;