Capitalizar Strings no Delphi

Pessoal, segue uma função para quem quiser colocar somente a primeira letra maiúscula na string. Legal para padronizar descrições em cadastros.



function Capitaliza(const s: string): string;
//capitaliza a string passada como parametro
var
  flag: boolean;
  i : Byte;
  t : string;
BEGIN
  flag := TRUE;
  t := '';
  for i := 1 to LENGTH(s) do
  begin
    if flag then
      AppendStr(t, UpCase(s[i]))
    else
      AppendStr(t, s[i]);
    flag := (s[i] = ' ')
  end;
  Result := t
end ;