f.TcpClient1.RemoteHost:=f.Edit1.Text;
        f.TcpClient1.RemotePort:=inttostr(Porta);
        f.TcpClient1.Active:=true;
        f.TcpClient1.Open;
        //.............................................
        if f.TcpClient1.Connected then begin
           if f.Edit2.Text<>'' then begin
              f.IdTCPClient1.Host:=f.Edit1.Text;     
              f.IdTCPClient1.Port:=Porta;
              f.IdTCPClient1.Connect;

x=0   // готова к обучению

- икс, золотце, небо красное?

if(x=0){x=random(2)+1}     

x=1;  //да!

- Ну и дура!

Ой! Тогда =2  

- икс, золотце, небо красное?

x=2   //нет!

- Умничка!