program Is_Default_Style;

// Makro zjisti zda je text naformatovan podle definice
// stylu odstavce.

var 
  i, startsel, endsel : integer;
  is : boolean;

begin
//  CaretHome;
//  CaretEnd(TRUE);
  startsel := GetSelStartPos;
  endsel := GetSelEndPos;
//  CaretHome;
  i := startsel;
  is := TRUE;
  UnselectBlock;
  while (i <= endsel) and is do
  begin
    is := IsTextDefault;
    i := i + 1;
    CharRight(1);
  end;
  CharLeft(1);
  if not is then
    Info_Box("Vysledek", "Zde je NonDefault text")
  else
    Info_Box("Vysledek", "Dokument je OK");
end.