1:
2:
3:
4:
5:
6:

function GetSelectedItems(s:TShellListView;i:Word;Var folder: String):String;
begin
  ...
  Result:=S.Folders[h].DisplayName;
  ...
end;                    

1:
2:
3:

...
stringG :( rid1.Cells[1,i+j]:=GetSelectedItems(ShellListView1,i,folder);
...                    

1:
2:
3:
4:
5:
6:
7:

function GetSelectedItems(s:TShellListView;i:Word;Var folder: String):String; 
begin 
  ... 
  Result:=S.Folders[h].DisplayName; 
  SetLength(Result, StrLen(PChar(Result))); // richtige Länge setzen
  ... 
end;