Из-за чего данный исходник не работает?(Опять проверка почты)

[misher]

Вроде бы как код написан правильно..Проверка почты.rar

[misher]

неужели ни кто не знает?

[Человек_Борща]

А что там по вашему "НЕ РАБОТАЕТ"?

added
Прошёлся по программе отладчиком..
а ведь программа кричит что:

Ошибка подключения!'' is not a valid integer value
Ошибка подключения!'' is not a valid integer value
Ошибка подключения!'' is not a valid integer value
Ошибка подключения!'' is not a valid integer value
Ошибка подключения!'' is not a valid integer value
Ошибка подключения!'' is not a valid integer value
Ошибка подключения!'' is not a valid integer value
Ошибка подключения!'' is not a valid integer value
Ошибка подключения!'' is not a valid integer value
Ошибка подключения!'' is not a valid integer value

Вот ошибка:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  NumOfMsgs: Integer;
begin
  try
    IdPOP31.Username := Edit1.Text;
    IdPOP31.Password := Edit2.Text;
    IdPOP31.Port := StrToInt(Edit4.Text); //It's not a integer value 
    IdPOP31.Connect;
    if IdPOP31.Connected then
    begin
      NumOfMsgs := idpop31.CheckMessages;
      Memo1.Lines.Add('У вас' + IntToStr(NumOfMsgs) + 'сообщений');
    end
  except
    on E: Exception do
      Memo1.Lines.Add('Ошибка подключения!' + E.Message);
  end;
  IdPOP31.Disconnect;
end;

Правельно... ведь "" это пустая строка=)

[misher]

Правельно... ведь "" это пустая строка=)

Погодите, а как она может быть пустая, если я туда с Edit-a текст буду добавлять?

[misher]

Или же я кусок кода пропустил?

[Человек_Борща]

Обьясните как юзать вашу программу, что куда писать помогу разобраться.

[misher]

procedure TForm1.Button1Click(Sender: TObject);
var
sek: integer;
begin
Timer1.Enabled:=false;  //остановка таймера
sek:=StrToInt(Edit5.Text)*60000; // определяем интервал проверки
Timer1.Interval:=sek;  // задаём интервал проверки
Timer1.Enabled:=true;  //запускаем таймера
Memo1.Lines.Add('Мыло будет проверено через'+Edit5.Text+'мин'); // Вывод оповещения в Memo
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
NumOfMsgs :Integer;
begin
try
IdPOP31.Username:=Edit1.Text; // адрес электронной почты

IdPOP31.Password:=Edit2.Text;  //  пароль к данному почтовому ящику
IdPOP31.Host:=Edit3.Text; // сервер я отследил mail.ru и полоучилось http://win.mail.ru/cgi-bin/auth
IdPOP31.Port:=StrToInt(Edit4.Text) // порт стандарт 110 ставлю 110
  IdPOP31.Connect; // подключение(соеденение)
  if IdPOP31.Connected then // если удалось, то
  begin
  NumOfMsgs :=idpop31.CheckMessages;  // пишем количество сообщений в NumOfMsgs
// выводим сообщения в Мемо
  Memo1.Lines.Add('У вас'+IntToStr(NumOfMsgs)+'сообщений');
  end
except
on E:Exception do Memo1.Lines.Add('Ошибка подключения!'+E.Message);
end;
IdPOP31.Disconnect; // оключение
end;
end.

Выходит так Ошибка подключения!Socket Error # 11004,
что это значит?