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