anchor.diff:    begin
       if txt <> '' then
         txt := txt + sLineBreak;
  -    txt := txt + 'Warnings:' + sLineBreak;
  -    txt := txt + StringReplace(fScripting.WarningsString, '|', sLineBreak, [rfReplaceAll]);
  +
  +    txt := txt + 'Warnings:' + sLineBreak +
  +           StringReplace(fScripting.WarningsString, '|', sLineBreak, [rfReplaceAll]);
     end;
   
     if txt <> '' then
       Memo1.Lines.Append(aPath + sLineBreak + txt)
     else
  -  if aReportGood then
  -    Memo1.Lines.Append(aPath + ' - No errors :)');
  +    if aReportGood then
  +      Memo1.Lines.Append(aPath + ' - No errors :)');
   end;
  +
   
   procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
   var
  
positive.code:     procedure Button1Click(Sender: TObject);
    private
      fScripting: TKMScripting;
  
      procedure Validate(aPath: string; aReportGood: Boolean);
  
      procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
    end;
  
  
  var
    Form1: TForm1;
  
  
  implementation
  uses
    KM_Maps;
  
  {$R *.dfm}
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
    Caption := 'KaM Remake Script Validator (' + GAME_REVISION + ')';
  
    OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));
  
    fScripting := TKMScripting.Create(nil);
  
    DragAcceptFiles(Handle, True);
  end;
  
negative.code:   fScripting.Free;
    DragAcceptFiles(Handle, False);
  end;
  
  
  procedure TForm1.btnBrowseClick(Sender: TObject);
  begin
  