anchor.diff:  
   function TfmMain.DoDialogSaveTabs: boolean;
   var
  -  i: integer;
     F: TEditorFrame;
     res: TModalResult;
     Form: TfmSaveTabs;
  +  i: integer;
  +  SCaption: string;
   begin
     Result:= false;
     Form:= TfmSaveTabs.Create(nil);
  
positive.code:     begin
        F:= Frames[i];
        if not F.Modified then Continue;
        List.Items.Add(F.TabCaption+IfThen(F.Filename<>'', '  ('+ExtractFileDir(F.Filename)+')'));
        List.Checked[List.Count-1]:= F.Modified;
      end;
  
      res:= ShowModal;
  
negative.code:         begin
            Result:= true;
            for i:= 0 to List.Count-1 do
              if List.Checked[i] then
              begin
                F:= List.Items.Objects[i] as TEditorFrame;
                F.DoFileSave(false, SaveDlg, nil);
              end;
          end;
      end;
    finally
  