Source position: uregistercompform.pas line 29
procedure TFormRegisterComp.SpeedButton1Click(
Sender: TObject
);