Dentro da unit da aplicação, crie um botão com Caption = 'Pesquisar Mapa da Cidade', e em seu evento "OnClick" insira o código:

procedure TUnit.Button1Click(Sender: TObject);
begin
  ShellExecute(0, Nil,
    PChar('http://maps.google.com.br/maps?f=q&source=s_q&hl=pt-BR&geocode=&q=' +
    DBEdit1.Text + '-SP&jsv=143c&sll=-23.186453,-46.884453&sspn=0.478436,' +
    '0.545883&g=&ie=UTF8&ct=clnk&cd=1'), Nil, Nil, 0);
end;

Onde esta escrito " '+DBEdit1.Text+' " é onde esta sendo exibido a cidade onde o cliente mora, ou você pode substituir pela pesquisa direto da tabela:

procedure TUnit.Button1Click(Sender: TObject);
begin
  ShellExecute(0, Nil,
    PChar('http://maps.google.com.br/maps?f=q&source=s_q&hl=pt-BR&geocode=&q=' +
      Tab_ClientesCidade.Value + '-SP&jsv=143c&sll=-23.186453,-46.884453' +
      '&sspn=0.478436,0.545883&g=&ie=UTF8&ct=clnk&cd=1'), Nil, Nil, 0);
end;

O botão vai fazer com que abra o navegador padrão acessando direto no GoogleMaps com a localização da cidade do cliente.

Mas antes de rodar, acrescente ao uses a unit ShellApi.

Detalhe: Caso não more em SP, vc deve mudar para o UF de seu estado onde esta escrito " '+DBEdit1.Text+'-SP ", logo após o DBEdit, e se deixar sem o UF, ele vai fazer uma pesquisa Global.

Espero ter ajudade como eu fui!
Abraço a todos.

Por: FabioZumbi12
Contato: zumbi12doze@hotmail.com