Huruf Awal Besar ( Kapital ) pada EditBox [Delphi]

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Bagaimana membuat huruf awal pada EditBox didelphi. ini lah codingnya.
-Buat Prosedure

procedure HurufAwalBesar(sender:TObject);
var
  Perubahan : TNotifyEvent; //mengeset variabel yang dibutuhkan
  Awal: Integer;
begin
  with (Sender as TEdit) do
    begin
      Perubahan := OnChange; //assign var sebelumUp seperti onChange
      OnChange := nil;
      Awal := SelStart;
      if ((SelStart > 0) and (Text[SelStart - 1] = ' ')) or (SelStart = 1) then
        begin
          SelStart := SelStart - 1;
          SelLength := 1;
          //menjadikan karakter pertama menjadi upperCase
          SelText := AnsiUpperCase (SelText); 
        end;
      OnChange := Perubahan;
      SelStart := Awal;
    end;
end;

-Penggunaannya,simpan pada event OnChange di EditBox


procedure TForm1.Edit1Change(Sender: TObject);

begin
HurufAwalBesar(Sender);
end;

Sekian dan Terima kasih..