Поиск письма по теме

[steelcore]

Здравствуйте уважаемые!
Помогите пожалуйста разобраться.
Пишу программу, которая коннектиться к майлу. Проверяет, есть ли письма. Если есть, то скачивает по очереди и просматривает тему письма. Если тема соответствует нужной, то сохраняет аттач и удаляет письмо, если нет то просто удаляет.

Вот код, вылетает с ошибкой на начале цикла

var
    MFile: TIdAttachment;
  begin
    i:= 0;
    IdPOP31.Connect(2500);
    if IdPOP31.Connected = True
    then
      begin
        i:= IdPOP31.CheckMessages;
        if i <> 0
        then
          begin
            while i > 0 do
            begin
              IdMessage1.Clear;
              IdPOP31.Retrieve(1, IdMessage1);
              if IdMessage1.Subject = 'BLABLA'
              then
                begin
                  MFile:= IdMessage1.MessageParts.Items[1] as TIdAttachment;
                  MFile.SaveToFile(TimeToStr(Time) + MFile.FileName);
                  IdPOP31.Delete(1);
                  IdMessage1.Clear;
                  ShowMessage('End, file saved');
                end
              else IdPOP31.Delete(1);
            end;
            IdPOP31.Disconnect;
          end;
      end;
  end;