var
  result :integer;
begin
   // comment
   result := 0; // дальнейшая обработка не нужна
   //result := 1; // письмо не обработано, требуется дальнейшая обработка, возможно, общим скриптом импорта
   createhint('Result = '+inttostr(Result));
end.