Googlemaps Icons ändern

[manfred_h]

Hallo zusammen

in meiner Anwednung verwende ich eine Googlemap um div. Orte darzustellen.
Dies funktioniert auch einwandfrei. Nun möchte ich aber noch das Icon anpassen.
Hat mir da jemand einen Tipp?

bisheriger Code:

Delphi-Quellcode:

procedure Tfrm_googlemap.btn_batch_distClick(Sender: TObject);
var
//  latitude, longitude: String;
  Doc2: IHTMLDocument2;
  Win2: IHTMLWindow2;
  latlng: String;
  i: integer;
begin
  if not DM.Camps.Active then DM.Camps.Open;
  if not DM.tmp.Active then DM.tmp.Open;
    try
      DM.tmp.First;
      for i := 0 to DM.tmp.RecordCount -1 do begin
        with WebBrowser1.HTMLWindow2 do
        begin
          execScript('createMapMarker( " ' +
            DM.tmp.FieldByName('POS_LAT').AsString + '", "'+
            DM.tmp.FieldByName('POS_LNG').AsString +'", "'+
            DM.tmp.FieldByName('NAME').AsString + '
'+
            DM.tmp.FieldByName('STR').AsString + '
'+
            DM.tmp.FieldByName('PLZ').AsString + '-'+
            DM.tmp.FieldByName('CITY').AsString + '
'+
            DM.tmp.FieldByName('TEL').AsString +
            '", icon: '+'http://google-maps-icons.googlecode.com/files/factory.png'+')', 'JavaScript');
          log_window.Lines.Add(
            DM.tmp.FieldByName('POS_LAT').AsString +
            ' ' +
            DM.tmp.FieldByName('POS_LNG').AsString +
            ' ' +
            DM.tmp.FieldByName('NAME').AsString); // Logeintrag
          DM.tmp.Next;
        end;
      end;
    finally
  end;

  Doc2 := WebBrowser1.Document as IHTMLDocument2;
  Win2 := Doc2.parentWindow;
  latlng := '46.818188,8.227512';
  Win2.execScript('map.panTo(new GLatLng(' + latlng + '));', 'JavaScript');
  WebBrowser1.ExecJScript('addControl(1);');
end;

Danke für Eure Tipps
Manfred