type
TList = specialize TFPGList<TKey>;
TMap = specialize TFPGMap<TKey, TData>;
var
m: TMap;
k: TList;
begin
....
k := TList.Create;
for idx := 0 to m.Count-1 do k.Add(m.Keys[idx]);
.....
k.Free;
....
type
TList = specialize TFPGList<TKey>;
TMap = specialize TFPGMap<TKey, TData>;
var
m: TMap;
k: TList;
begin
....
k := TList.Create;
for idx := 0 to m.Count-1 do k.Add(m.Keys[idx]);
.....
k.Free;
....