te paso el código, pero no creo que te sirva de mucho si no sabes como se debe exportar el legend.... te recomiendo que leas todo el hilo para que sepas como exportarlo... saludos
Código:
procedure refresca_legend();
var
imap:_dmap;
intf:idispatch;
loadit:wordbool;
begin
with form1 do
begin
imap:=map1.controlinterface;
intf:=imap as idispatch;
legend1.setmapsource(intf);
loadit:=true;
legend1.loadlegend(loadit);
legend1.showalllegend;
end;
end;