function testthread(p: pointer): LongInt;
var my_idle: integer;
    pwtotest: string;
begin
  my_idle := integer(p^);
  with form1 do begin

    if test_typ = 'pop3' then begin
      basepop3 := TIdPOP3.Create(form1);
      with basepop3 do begin
        name := 'pop3_'+inttostr(my_idle);
        host := 'host';
        username := 'username';
        parent := form1;
      end;
    end;

    with TListBox(FindComponent('buffer_'+inttostr(my_idle))) do begin
      while items.Count > 0 do begin

        pwtotest := items[0];
        items.Delete(0);

        if test_typ = 'pop3' then begin
          with TIdPOP3(FindComponent('pop3_'+inttostr(my_idle))) do begin
            try
              [color=red]password := 'test';[/color]
              [color=red]connect;[/color]
              form1.donegauge.Progress := form1.donegauge.Progress + 1;
            except
              form1.donegauge.Progress := form1.donegauge.Progress + 1;
            end;
          end;
        end;
      end;
    end;
  end;
  result := 0;
end;