Возможно вам нужен ListView. Там это делается так:
Код:
var
ListItem : TListItem;
begin
ListItem := ListView1.Items.Add;
ListItem.Caption := 'Number 1';
ListItem.SubItems.Add('Вася');
ListItem.SubItems.Add('Пупкин');
ListItem.SubItems.Add('крутой');
ListItem.SubItems.Add('программист');
end; |