Problemas para completar con ListView API de Google Maps

[wolfran_hack]

tengo que completar la siguiente URL que es de la API de gooogle para localizar una serie de puntos:

Código Delphi [-]
WebBrowser2.Navigate('h t t p : // maps. googleapis .com/maps/api/staticmap?center=&zoom=15&size=1024x766&maptype=roadmap&markers=color:blue||' + 
ListView1.Items.Item[0].Caption + '&markers=color:green||' + ListView1.Items.Item[1].Caption + '&markers=color:red||' + ListView1.Items.Item[2].Caption + '&sensor=false');

En este caso tengo 3, pero esto necesitando más de 20 puntos, el problema es que tomando actualmente como esta el codigo de arriba, si coloco en vez de 3 puntos 2 en el ListView, el mismo me lanza error al querrer mostrar el mapa el mismo lanza error, hay alguna forma de completar los items no agregados en blanco? o si se les ocurre como completarla con algun If?

[aposi]

Empezado por wolfran_hack

tengo que completar la siguiente URL que es de la API de gooogle para localizar una serie de puntos:

Código Delphi [-]WebBrowser2.Navigate('h t t p : // maps. googleapis .com/maps/api/staticmap?center=&zoom=15&size=1024x766&maptype=roadmap&markers=color:blue||' + ListView1.Items.Item[0].Caption + '&markers=color:green||' + ListView1.Items.Item[1].Caption + '&markers=color:red||' + ListView1.Items.Item[2].Caption + '&sensor=false');


En este caso tengo 3, pero esto necesitando más de 20 puntos, el problema es que tomando actualmente como esta el codigo de arriba, si coloco en vez de 3 puntos 2 en el ListView, el mismo me lanza error al querrer mostrar el mapa el mismo lanza error, hay alguna forma de completar los items no agregados
en blanco? o si se les ocurre como completarla con algun If?

Para crear todos los marcadores es así. El problema lo tendras para indicar el color de cada punto

Código Delphi [-]
direccion := 'h t t p : // maps. googleapis .com/maps/api/staticmap?center=&zoom=15&size=1024x766&maptype=roadmap';
for i:= 0 to LV.items.count -1 do
    begin
       direccion := direccion + '&markers=color:green ' + ListView1.Items.Item[i].Caption;

    end;
end;
direccion := direccion + '&sensor=false';
WebBrowser2.Navigate(direccion);

para marcar con numeros los puntos puedes utlizar esto:

Código Delphi [-]
 direccion := direccion + '&markers=color:green%7Clabel:'+ i + '% ' + ListView1.Items.Item[i].Caption;