1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure getTicket(mailbox:String);
var
TheFlags: TIdMessageFlagsSet;
TheUID: string;
i,mcount: integer;

begin


  Form1.IdImap41.SelectMailBox(mailbox);//zur mailbox wechseln
  mcount:=Form1.IdIMap41.MailBox.TotalMsgs;

  if(mcount>0) then
  begin

    for i:=1 to mcount do
    begin

      Form1.IdImap41.GetUID(i,TheUID);
      Form1.IdImap41.UIDRetrieveFlags(TheUID, TheFlags)

    end;

  end;

end;					

1:

for i:=1 to mcount do