[_Leo]

Hola, prueba del siguiente modo:

(Añade las siguientes cabeceras: #include<utilcls.h> #include<mshtml.h>)

void __fastcall TFrmMain::WebBrowser1CommandStateChange(TObject *ASender,
        int Command, WordBool Enable)
{
    if (Command != ::CSC_UPDATECOMMANDS) return;

    String Lat, Lng;
    TComInterface<IHTMLDocument3> doc;
    TComInterface<IHTMLElement> tag;
    TVariant value;

    OleCheck(WebBrowser1->Document->QueryInterface<IHTMLDocument3>(&doc));
    doc->getElementById(TVariant("LatValue"), &tag);
    if (tag) { tag->getAttribute(TVariant("value"), 0, value);  Lat = value; }
    tag.Reset();
    doc->getElementById(TVariant("LngValue"), &tag);
    if (tag) { tag->getAttribute(TVariant("value"), 0, value);  Lng = value; }

    if (!Lat.IsEmpty() && !Lng.IsEmpty()
        && (Lat != Latitude->Text || Lng != Longitude->Text))
    {
        Latitude->Text = Lat;
        Longitude->Text = Lng;
        AddLatLngToList(Lat, Lng);
    }
}