Source position: ucbase.pas line 393
protected procedure TUserControl.ActionTSBtGrava(
Sender: TObject
);