MapObjects & Delphi

[torito]

jeje, gracias por la pos Data, te recomiendo que si tienes dudas sobre el map objects continues con el hilo donde nos conocimos ya que de ese si me llega aviso y de este por pura casualidad lo vi.. el código te lo adjunto, si tienes alguna duda me avisas, por cierto que bueno que ya estas investigando más a fondo

procedure TForm2.BBEtiquetaClick(Sender: TObject);
var
aqui : integer;
oleFt    : variant;
lblren   : IMoLabelRenderer;
begin
if (cbvisible2.Checked) and (cbdato.Text<>'') then
 begin
 oleft := FontToOleFont(fuentes.Font);
 lblren :=IMoLabelRenderer(CreateOleObject('MapObjects2.LabelRenderer'));
 LblRen.DrawBackground := True;
 LblRen.Field := 'Nom';
 LblRen.SplinedText := True;
 LblRen.AllowDuplicates := False;
 LblRen.MaxLevel := 10;
 LblRen.MinLevel := 10;

 LblRen.Symbol[0].Font := IFontDisp(IDispatch(oleFt));
 //lblren.AllowDuplicates :=true;
 lblren.field :=cbdato.Text;
 l.renderer := lblren;
 //form1.Map1.Refresh;
 end else //fin if principal
 l.renderer :=nil;
form1.Map1.Refresh;

saludos