Con la siguiente función podemos capitalizar una determinada cadena que pasemos como parámetro. Por ejemplo, si pasáramos como parámetro la cadena "ramón" obtendríamos como resultado la cadena "Ramón".
Código Delphi
[-]
function Capitalizar(const cadena: string): string;
var
s: string;
i: integer;
b: boolean;
begin
s := '';
b := true;
for i := 1 to Length(cadena) do
begin
if b then
s := s + AnsiUpperCase(cadena[i])
else
s := s + cadena[i];
b := (cadena[i] = ' ');
end;
Result := s;
end;