TIdHTTP *http = new TIdHTTP(NULL);
                        AnsiString res;
                        try
                        {
                                res = http->Get(Edit1->Text);
                        }
                        catch (const EIdSocketError &exception)
                        {
                                if(exception.LastError == 11001)
                                {
                                        Application->MessageBox("Ошибка соединения", "Ошибка протокола",MB_ICONSTOP+MB_OK);
                                        exit(1);
                                }else{
                                        Application->MessageBox("Неведомая ***ня", "Ошибка протокола",MB_ICONSTOP+MB_OK);
                                         exit(1);
                                        }
                        }
                        if(!(res == ""))
                        {
                                int search = res.Pos("еф");
                                if(search != 0)
                                {
                                        Label1->Caption = "Нашли";
                                }else{
                                        Label1->Caption = "Неудачно";
                                }
                        }else{
                                Application->MessageBox("Ошибка получение ресурса", "Ошибка протокола",MB_ICONSTOP+MB_OK);
                        }
                }