Convertendo a primeira letra de um EditBox para maiúsculas

procedure TForm1.Edit1Change(Sender: TObject);
var 
OldStart : Integer;

begin

  With Edit1 do

  if Text <> then

  begin

  OnChange := NIL;

  OldStart := SelStart;

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

  SelStart := OldStart;

  OnChange := Edit1Change;

  end;

end;