macro 'make frames';
var
   i: integer;
begin
   i := 1;
  while nPics > 0 do begin
     SelectPic(1);
     SaveAs('Frame',i:4);
     Dispose;
      i := i + 1;
  end;
end;