anchor.diff:        end;
     end;
   end;
  +
  +{$IFDEF GRAPHICS_AVAILABLE}
   
   function TryToUndestandColorString(const aInputString: String; out Value: TColor): boolean;
   begin
  
positive.code: 
  end;
  
  {$IFDEF GRAPHICS_AVAILABLE}
  
  function TryToUnderstandDateTimeString(const aInputString: String; out aValue: TDateTime): boolean;
  var
    i : integer;
  
negative.code: {$ENDIF}
  end;
  
  procedure RunConsoleApplicationAndGetOutput(const aCommand: string; const aParameters : array of string; out aOutputText: String);
  var
    tmpProcess: TProcess;
    tmpStringList: TStringList;
  begin
    tmpProcess := TProcess.Create(nil);
    try
      tmpProcess.Executable := aCommand;
      tmpProcess.Parameters.AddStrings(aParameters);
      tmpProcess.Options := tmpProcess.Options + [poWaitOnExit, poUsePipes];
      tmpProcess.Execute;
      tmpStringList := TStringList.Create;
      try
        tmpStringList.LoadFromStream(tmpProcess.Output);
        aOutputText := tmpStringList.Text;
      finally
        tmpStringList.Free;
      end;
    finally
      tmpProcess.Free;
    end;
  end;
  
  function GetTimeStampForFileName(const aInstant: TDateTime; const aAddTime : boolean = true): string;
  var
    year, month, day : word;
  