[*Caro*]

Hola cslbcn, tienes que recorrer tu TreeView y preguntar por el nivel si es 0 ira como encabezado de tu StringGrid y asi sucesivamente, te pongo un ejemplo de como mas o menos tendrías que hacerlo.

Código Delphi [-]
var
 i, aCol, ARow : Integer;
begin
 aCol := 0;
 ARow := 1;
 for i:=0 to TreeView1.Items.Count-1 do
  begin
   if TreeView1.Items[i].Level=0 then
    begin
     Inc(aCol);
     StringGrid1.Cells[aCol,0] := TreeView1.items[i].Text;
     ARow := 1;
    end
   else
    begin
     StringGrid1.Cells[aCol,aRow] := TreeView1.items[i].Text;
     Inc(aRow);
    end;
  end;
end;

Empezado por tcp_ip_es

hay que currárselo un poco

Una pregunta tcp_ip_es, que significa currárselo , suena un poco raro la palabrita.

Saluditos