select count(id) from positions where id = (select idpos from words where word='словечко')

procedure TFR.BCNClick(Sender: TObject);
begin
  If (Trim(LENC.Text)='') or ((ME.Text='   .   .   .   ') and (RGD.ItemIndex=0)) Then
    Begin
      If Trim(LENC.Text)='' Then Begin ShowMessage('Ââåäèòå ñâîé ïñåâäîíèì.'); LENC.Text:=''; End;
      If (ME.Text='   .   .   .   ') and (RGD.ItemIndex=0) Then ShowMessage('Ââåäèòå IP àäðåññ ñåðâåðà.');
    End
  Else
    Begin
      YN:=LENC.Text;
      Case RGD.ItemIndex of
        0:
          Begin
            SRV.Active:=True;
            CLN.Host:=ME.Text;
            CLN.Connect;
            CLN.WriteLn(IPW.LocalIP);
          End;
        1:
          Begin
            SRV.DefaultPort:=1941;
            SRV.Active:=True;
            CLN.Port:=1945;
          End;
      End;
    End;
end;

procedure TFR.CLNConnected(Sender: TObject);
begin
  Case RGD.ItemIndex of
    0:
      Begin
        MC.Visible:=True;
        MO.Visible:=True;
        BOS.Visible:=True;
        BOF.Visible:=True;
      End;
    1:
      Begin
        MC.Visible:=True;
        MO.Visible:=True;
        BOS.Visible:=True;
        BOF.Visible:=True;
        SB.SimpleText:='Ñîåäèíåíèå óñïåøíî óñòàíîâëåíî.';
      End;
  End;
end;       

procedure TFR.SRVExecute(AThread: TIdPeerThread);
var s: String;
begin
  Case RGD.ItemIndex of
    0:
      Begin

      End;
    1:
      Begin
        T:=AThread.Connection.ReadLn;
        CLN.Host:=T;
        CLN.Connect;
      End;
  End;
end;