Konverter streng

function UpperCaseForste(Tekst: string): string;
const
  TokenizerChars = [#32, '.', '-'];
var
  i: integer;
begin
  Tekst:=AnsiLowerCase(Trim(Tekst));

  if length(Tekst)>0 then
    Tekst[1]:=AnsiUpperCase(Tekst[1])[1];

  for i:=2 to length(Tekst)-1 do
    if Tekst[i] in TokenizerChars then
      Tekst[i+1]:=AnsiUpperCase(Tekst[i+1])[1];

  result:=Tekst;
end;