[ContraVeneno]

Sí son varias palabras:
http://delphi.about.com/cs/adptips19...ltip1099_5.htm

Si es una sola:

Código Delphi [-]
   edtUnapalabra.Text := AnsiUpperCase(COpy('UNAPALABRA', 1,1))+AnsiLowerCase(RightStr('UNAPALABRA', length('UNAPALABRA')-1));