type
 PQuestion=^TQuestion;
 TQuestion=record
  Name: String[255];
  ResultQCount:Integer;
  ResultCount:Integer;
  ResiltText: array[0..10] of String[255];
  ResiltValue: array[0..10] of boolean;
 end;

with QuestionTreeView^ do begin
 TVInsert( 0, 0,NewQuest.Name);
 Font.FontStyle:=[fsunderline];
                          end;

QuestionTreeViewChange(Sender: TObject;
 Node: TTreeNode);
var
i:Integer;
begin
ResultView.Items.Clear;
if Node=nil then exit;

for i:=0 to PQuestion(node.Data).ResultCount-1 do
 with ResultView.Items.Add do
  begin
   Caption:=PQuestion(node.Data).ResiltText[i];
   if PQuestion(node.Data).ResiltValue[i]=true then
    begin
     SubItems.Add('Да');
     ImageIndex:=2;
    end
   else
    begin
     SubItems.Add('Нет');
     ImageIndex:=1;
    end;
  end;
end;

procedure QuestionTreeViewSelChange(Sender:pcontrol);
var i:integer;
begin
ResultView.Clear;
//провека на пустые поля
      index:=QuestionTreeView.TVSelected;//showmessage(int2str(index));
      for i:=0 to PQuestion(QuestionTreeView.TVItemData[index]).ResultCount-1 do begin
if  PQuestion(QuestionTreeView.TVItemData[index]).ResiltValue[i]=true then begin
ResultView.LVItemAdd('');
ResultView.LVItems[i,1]:='Да';
ResultView.LVSetItem(i,0,PQuestion(QuestionTreeView.TVItemData[index]).ResiltTex t[i],2, [], 0, 0, 0);
           end else begin
           ResultView.LVItemAdd('');
ResultView.LVItems[i,1]:='Нет';
ResultView.LVSetItem(i,0,PQuestion(QuestionTreeView.TVItemData[index]).ResiltTex t[i],1, [], 0, 0, 0);
                     end;
           end;

end;