/var/mail/.schetchik.pop lock busy!  Is another session active? ( 35 )

  try
    try pop3.Connect;
    except
      exit
    end;
    try
      if POP3.CheckMessages< 1  then
        begin
          Memo1.Lines.Add('there`s no messages');
          exit;
        end
      else begin
        try
          rez:=POP3.Retrieve( 1 ,msg);
        except
          Memo1.Lines.Add('не могу считать сообщение!');
          SendErr;  exit
        end;
        if (msg=nil)or(rez=false) then
          begin
            Memo1.Lines.Add('ошибочное сообщение!');
            SendErr;  exit
          end;
       for i:= 0  to msg.MessageParts.Count- 1  do
          if msg.MessageParts[i] is TIdAttachment then
            with (msg.MessageParts[i] as TIdAttachment) do
              (msg.MessageParts[i] as TIdAttachment).SaveToFile('TAccum.db');
        pop3.Disconnect;
        for i:= 0  to  10  do begin Sleep( 50 ); Application.ProcessMessages end;
        pop3.Connect;
<<<<<< глючит у меня на следующей строке, но только на больших файлах >>>>>>
        pop3.Delete( 1 );
        Memo1.Lines.Add('--конец отчета--');
      end
    finally
      POP3.Disconnect;
    end;
  except
    on e:Exception do Memo1.lines.Add(e.Message);
  end;

procedure TfMailClnt.SendErr;
var i:integer;
begin
  try
    try
      msg.Body.Text:=WinToKOI(Memo1.Text);
      for i:=msg.MessageParts.Count- 1  downto  0  do
        if msg.MessageParts.Items[i] is TIdText then
          msg.Body.AddStrings((msg.MessageParts.Items[i] as TIdText).Body)
        else msg.MessageParts.Delete(i);
      msg.CharSet:='koi8-r';
      msg.Recipients.EMailAddresses:='юзер@домен.ru';
      msg.From.Address:='юзер1@домен1.ru';
      msg.From.Name:='Robot';
      msg.Sender.Address:='юзер1@домен1.ru';
      msg.Sender.Name:='Robot';
      SMTP.Connect;
      SMTP.Send(msg);
    except
      WinExec('net send radchenko глюк при отправке сообщения',SW_SHOWNORMAL);
      strlst.Clear;
      try strlst.LoadFromFile('error.log'); except end;
      strlst.AddStrings(Memo1.Lines);
      DeleteFile('error.log');
      strlst.SaveToFile('error.log');
    end;
  finally
    SMTP.Disconnect;
  end;
  Memo1.Lines.Add('отправлено уведомление');
end;

        else msg.MessageParts.Delete(i);