Мона так:
//------------------------------------------------------
procedure TForm1.Edit1Change(Sender: TObject);
begin
edit1.text:=AnsiUpperCase(copy(edit1.Text,1,1))+An siLowerCase(copy(edit1.Text,2,length(edit1.Text)-1));
end;
//-------------------------------------------------------
|