Mettre la première lettre d'un TEdit en majuscule

procedure TForm1.Edit1Change(Sender: TObject);
var
OldStart : Integer;
begin
With Edit1 do
if Text <> '' then
begin
OnChange := nil;
OldStart := SelStart;
Selstart := 0;
Sellength := 1;
Seltext := AnsiUpperCase(Text[1]);
SelStart := OldStart;
OnChange := Edit1Change;
end;
end;