كيفية ارغام Tedit على كتابة الحرف الاول بالاحرف الكبيرة

[Anter2010]

[FONT="Comic Sans MS"][COLOR="RoyalBlue"]السلام عليكم و رحمة الله تعالى و ركاته

الاخوة الا فاظـــــل ماهي الطريقة لكتابة الحرف الاول بالاحرف الكبيرة في Edit[/COLOR]

[Anter2010]

[color="royalblue"]السلام عليــــــــــكم و رحمة الله تعالى و بركاته
الاخوة الافـــــــــــاظل قد تم و بحمد الله حل المشــــكلة[/color]

كود :

procedure TForm1.Edit1Change(Sender: TObject); var OldChange: TNotifyEvent; OldStart: Integer; begin with (Sender as TEdit) do begin OldChange := OnChange; OnChange := nil; OldStart := SelStart; if ((SelStart > 0) and (Text[SelStart - 1] = ' ')) or (SelStart = 1) then begin SelStart := SelStart - 1; SelLength := 1; SelText := AnsiUpperCase(SelText); end; OnChange := OldChange; SelStart := OldStart; end; end;