如何设置3秒执行一次循环？

如何设置3秒执行一次循环？在　uidstr='0' 时　　for i:=0 to 9 do　循环3秒执行一次
同样在uidstr＜＞'0' 　for i:=0 to 4 do　也是3秒执行一次请高手出手帮助改一下代码了代吗如下
procedure TForm1.btn01Click(Sender: TObject);
var
  i:integer;
begin
    if uidstr='0' then 
    begin
      for i:=0 to 9 do
      begin
      idstrs[i]:=Get0farmseedStr(uidstr,Edit1.Text,mmfield[i]);
      idtcps[i].Disconnect;
      idtcps[i].Connect(2000);
      end;
      wb1.Navigate('about:blank');
      Application.ProcessMessages;
      wbsettext('......');
   end
    else
    begin     
      for i:=0 to 4 do
      begin
      idstrs[i]:=Get0farmseedStr(uidstr,Edit1.Text,nnfield[i]);
      idtcps[i].Disconnect;
      idtcps[i].Connect(2000);
      end;
      wb1.Navigate('about:blank');
      Application.ProcessMessages;      
      wbsettext('......');
      end;
    
end;先谢谢高手了