, 0, nil, 0, TrId, nil);. Enabled:=false;. Enabled:=true;; TForm1.FormCreate (Sender: TObject);.Caption:=«PID=»+inttostr(GetCurrentProcessId);.Text:=inttostr(GetCurrentProcessId);;TForm1.Button2Click(Sender: TObject);. Enabled:=true;. Enabled:=false; (hDriver, 0, nil, 0, nil, 0, TrId, nil);; TForm1.FormCloseQuery (Sender: TObject; var CanClose: Boolean);:= false;;.