var
  SPID: Integer;
  FDQuery: TFDQuery;
begin
  ...
  FDQuery.SQL.Text := 'sp_who @@spid'; // or 'EXEC sp_who @@spid'
  FDQuery.Open;
  SPID := FDQuery.FieldByName('spid').AsInteger;
end;