Convertendo a 1ª letra de um edit para maiúsculas

Esta dica é útil para ser utilizada no cadastramanto de nomes.

Se o operador do sistema esquecer de colocar a primeira letra de um nome em minúscula, automaticamente a letra ficará maiúscula.

Para que isto ocorra, coloque um objeto edit no formulário e no seu evento OnChange insira o seguinte código:

var

Variavel : Integer;

begin

With Edit1 do

if Text <> '' then

begin

OnChange := NIL;

Variavel := SelStart;

Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));

SelStart := Variavel;

OnChange := Edit1Change;

end;

end;