ccApplication.ShowTack

var
  i       : Integer;  
  MyTacks : Variant;
begin
  MyTacks := ccApplication.GetTackList(false);
  for i:=0 to VarArrayHighBound(MyTacks,1) do
  begin
    ccApplication.ShowTack(MyTacks[i]);
    Sleep(2000);
  end;
end;