Нормализовать ФИО, аббревиатуры

[BelkinBelkin]

Есть ли такая функция для Delphi, которая приводит к нормальному виду фамилии, имена и т.д.?
Например, ввел пользователь иВАнов ИВАН, а она сделала Иванов Иван.

Но тут надо еще учитывать аббревиатуры. Например, РОВД должен остаться РОВД.

[Duncon]

LowerCase и UpperCase
AnsiLowerCase(s);
if s<>'' then s[1] := AnsiUpperCase(s[1])[1];

Аббревиатуры я бы проверил - если все буквы в верхнем регистре пропускаю слово.. Либо список исключений. Либо список имён и фамилий.. Либо алгоритм определяющий что это имя/фамилия, по окончаниям корням или ещё как, см. правила русского языка..