uses SysUtils;
procedure StatusQ(ID:integer=-1);
Var
i:integer;
stat:string;
begin
  Print('Инфо по квесту '+IntToStr(ID));
  for i:=1 to 32 do
  begin
    if Engine.QuestStatus(ID,i) then stat:='OK' else stat:=' -- ';
    Print('Шаг '+IntToStr(i)+' - '+stat);
  end;
end;

begin
  StatusQ(10323); // вместо 33333 вписываем ID  квеста
end.