Får fejl i koden

Hej..

Når jeg kører følgende kode får jeg fejlen: invalid argument to date encode

Koden ser således ud:

POP3.Connect;
try
    Count := POP3.CheckMessages;

    for i := 1 to Count do begin
      Header := TidMessage.Create(nil);
      if POP3.RetrieveHeader(i,Header) then begin// Headers only

        //----------------

  if assigned(Header) then begin
    ID := GetNextMailID;
    MsgID := i-1;
    try
      if Pop3.Retrieve(MsgID,Header) then begin // Read the rest
        for i1 := 0 to Header.MessageParts.Count - 1 do
          // Lidt i tvivl her - håndterer ikke at der kan være flere tekst-dele
          // Skriver den sidste i reText'en og laver n antal records i mails-tabellen
          if (Header.MessageParts[i1] is TidText) then begin
            Text := Header.MessageParts[i1] as TidText;
            SaveMailToTable(Text,ID,Header.Sender.Name,Header.Subject); // Save to table;
          end
          else begin
            SaveAttachmentToTable(Attachment,ID);
          end;
        end;

    finally
      inboxupdate;
    end;
  end;

  //------------------------------------

        end;
    end;
  finally
  POP3.Disconnect;

  end;

Nogen som har et bud??