[NumLock]

PHP код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);

procedure TForm1.Edit1Change(Sender: TObject);
var
  l: Integer;
begin
  if Length(TEdit(Sender).Text)>0 then
  begin
    l:=TEdit(Sender).SelStart;
    TEdit(Sender).Text:=AnsiUpperCase(TEdit(Sender).Text[1])+Copy(TEdit(Sender).Text, 2, Length(TEdit(Sender).Text));
    TEdit(Sender).SelStart:=l;
  end;
end;