// отправка запроса и получение ответа
function GetInetFile(const FileURL:String; Stream:TMemoryStream): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  sAppName: string;
  Utf8FileUrl:UTF8String; // Гугл принимает и отдает UTF8 кодировку!!!
  Headers:String;
begin
  // переводим в принимаемую Гуглем кодировку
  Utf8FileUrl:=AnsiToUtf8(FileURL);
  sAppName:= ExtractFileName(Application.ExeName);
  hSession:= InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
  try
    // рассказывем Гуглю, что русские мы
    Headers:='Accept-Language: ru';
    hURL := InternetOpenURL(hSession,PChar(Utf8FileUrl),PChar(Headers),Length(Headers),0,0);
    try
      Stream.Clear;
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        Stream.Write(Buffer,BufferLen);
      until BufferLen = 0;
      Result:=True;
    finally
      InternetCloseHandle(hURL)
    end;
  finally
    InternetCloseHandle(hSession)
  end;
end;

// получение карты со списком точек
function GetMap{(Points:TObjectList)}:TOleGraphic;overload;
var
  FileOnNet: String;
  Stream:TMemoryStream;
  Markers:String;
  i:Integer;
begin
  // создаем поток
  Stream:=TMemoryStream.Create;
  Stream.LoadFromFile('D:\kml.kml');  //данные берем из рабочего для GoogleEarth файла
  try
    // формируем url для запроса
    FileOnNet:='http://maps.google.com/staticmap?size=640x640'
      +'&markers=%s'
      +'&maptype=mobile&key=MAPS_API_KEY';
    FileOnNet:=Format(FileOnNet,[Markers]);
    // получение потока с данными ответа
    if GetInetFile(FileOnNet,Stream) = True then begin
      // создаем графический объект
      Stream.Position:=0;
      Result:=TOleGraphic.Create;
      Result.LoadFromStream(Stream);
    end else
      Result:=nil;
  finally
    Stream.Free;
  end;
end;

//нажатие кнопки Ок
procedure TForm1.bbOkClick(Sender: TObject);
var
  SearchString:String;
  OleGraphic: TOleGraphic;
begin
      // запрос карты
      OleGraphic:=GetMap;
      // рисуем карту
      ImageGeocoding.Picture.Assign(OleGraphic);
      OleGraphic.Free;
end;//procedure

Stream.SaveToFile('FileName.gif')