MAPX5.0+DELPHI为什么输出不了GIF，TIF，PNG？

<P>这个是我的代码为什么输出不了GIF PNG TIF 只能输出BMP？ 求求你们了 帮助解决一下了</P>
<P>procedure Tfrmchange.suiButton1Click(Sender: TObject);
var
mapgif:string;
begin
     if frmchange.suiRadioButton1.Checked=true then
     begin
          if (length(suiedit1.Text)<>0) and (length(suiedit2.Text)<>0) then
          begin
               with main.frmmain do
               begin
                    savedialog1.Filter:='mapinfo(*.gif)|*.gif|';
                    <a>file://把</A>图片以*.gif格式存储
                    if savedialog1.Execute then
                    if savedialog1.FileName<>'*.gif' then
                    begin
                         mapgif:=savedialog1.FileName;
                         map1.PaperUnit:=5;
                         map1.ExportMap(mapgif,2,StrToint(suiEdit1.Text),StrToint(suiEdit1.Text));
                         <a>file://exportap</A>(文件路径名称,函数输出格式，高度，宽度)
                   end;
              end;
          end
          else
          Application.MessageBox('数据有错,'+#13+'请重新输入!','错误',mb_ok or mb_iconError);
     end;
     if frmchange.suiRadioButton2.Checked=true then
     begin
          if (length(suiedit3.Text)<>0) and (length(suiedit4.Text)<>0) then
          begin
               frmchange.GroupBox2.Enabled:=true;
               with main.frmmain do
               begin
                    savedialog1.Filter:='mapinfo(*.bmp)|*.bmp|';
                    <a>file://把</A>图片以*.bmp 格式存储
                    if savedialog1.Execute then
                    if savedialog1.FileName<>'*.bmp' then
                    begin
                         mapgif:=savedialog1.FileName;
                         map1.PaperUnit:=5;
                         map1.ExportMap(mapgif,1,StrToint(suiEdit3.Text),StrToint(suiEdit4.Text));
                         <a>file://exportap</A>(文件路径名称,函数输出格式，高度，宽度)
                    end;
               end;
          end
          else
          Application.MessageBox('数据有错,'+#13+'请重新输入!','错误',mb_ok or mb_iconError);
     end;
     if frmchange.suiRadioButton3.Checked=true then
     begin
          if (length(suiedit5.Text)<>0) and (length(suiedit6.Text)<>0) then
          begin
               frmchange.GroupBox3.Enabled:=true;
               with main.frmmain do
               begin
                    savedialog1.Filter:='mapinfo(*.tif)|*.tif|';
                    <a>file://把</A>图片以*.tif 格式存储
                    if savedialog1.Execute then
                    if savedialog1.FileName<>'*.tif' then
                    begin
                         mapgif:=savedialog1.FileName;
                         map1.PaperUnit:=5;
                         map1.ExportMap(mapgif,4,StrToint(suiEdit5.Text),StrToint(suiEdit6.Text));
                          <a>file://exportap</A>(文件路径名称,函数输出格式，高度，宽度)
                    end;
               end;
          end
          else
          Application.MessageBox('数据有错,'+#13+'请重新输入!','错误',mb_ok or mb_iconError);
     end;
     if frmchange.suiRadioButton4.Checked=true then
     begin
          if (length(suiedit7.Text)<>0) and (length(suiedit8.Text)<>0) then
          begin
               frmchange.GroupBox4.Enabled:=true;
               with main.frmmain do
               begin
                    savedialog1.Filter:='mapinfo(*.png)|*.png|';
                    <a>file://把</A>图片以*.png 格式存储
                    if savedialog1.Execute then
                    if savedialog1.FileName<>'*.png' then
                    begin
                         mapgif:=savedialog1.FileName;
                         map1.PaperUnit:=5;
                         map1.ExportMap(mapgif,5,StrToint(suiEdit7.Text),StrToint(suiEdit8.Text));
                         <a>file://exportap</A>(文件路径名称,函数输出格式，高度，宽度)
                    end;
               end;
          end
          else
          Application.MessageBox('数据有错,'+#13+'请重新输入!','错误',mb_ok or mb_iconError);
     end;
close;
end;</P>
<P>这个是我的代码为什么输出不了GIF PNG TIF 只能输出BMP？ 求求你们了 帮助解决一下了</P>