procedure TForm1.Form1Show(Sender: TObject);
var
 i:integer;
begin
 LocalStorage.Set('first', 'data1');
 LocalStorage.Set('sercond', 'data2');
 LocalStorage.Set('third', 'data3');

 //  working
 ShowMessage('first: '+Localstorage.Items['first']);

 // doesn't work.
 for i := 0 to LocalStorage.Count - 1 do  
   ShowMessage(inttostr(i)+': '+Localstorage.Items[i]);
   
end;