c
The code below will download a Wikipedia article about tigers.
uses ..., fphttpclient, fpjson;
...
var Json: TJSONData;
HTTP: TFPHttpClient;
Result, Page: String;
begin
try
Page := 'tiger';
HTTP := TFPHttpClient.Create(Nil);
Result := HTTP.Get('http://api.rest7.com/v1/wikipedia_page.php?page=' + Page + '&language=en&plain=1');
Json := GetJSON(Result);
Memo1.Lines.Add('Page title=' + Json.GetPath('title').AsString);
Memo1.Lines.Add('Page text=' + Json.GetPath('text').AsString);
Memo1.Lines.Add('Image=' + Json.GetPath('image_url').AsString);
Memo1.Lines.Add('Image width=' + Json.GetPath('image_width').AsString);
Memo1.Lines.Add('Image height=' + Json.GetPath('image_height').AsString);
finally
HTTP.Free;
end;