Marks a message for deletion on the POP3 server.    function Delete(const MsgNum: Integer): Boolean;    Parameters    const MsgNum: Integer    Message number to be removed.

var
  i: integer;
  iMailCount: integer;
begin
  // 連線 ...      iMailCount := IdPop3.CheckMessages;      // ...      // 收完 mail 後
  for i := 0 to iMailCount - 1 do
    IdPop3.Delete(i);
end;