Result := GetCurrentProcessId; select PID() from rdb$database выдает PID родного процесса. Именно _РОДНОГО_ а не листенера.А что было подозрение о другом?
подозрений не было, было раздражение по-поводу работы netstat -o -a когда он выдает pid листенера
