[true]

или как сделать чтобы в дилоговом окне был чекбокс мол не выводить снова?

вот код:

Код:

procedure TForm1.ToolButton4Click(Sender: TObject);
var
filename:OleVariant;
j,a: integer;
begin
showmessage('Выберете файл с шаблоном отчета. Он находится в корневом каталоге с программой (otchet.doc)');

if OpenDialog1.Execute
then
filename:=OpenDialog1.FileName;



WordApplication1.Connect;

WordApplication1.Documents.Open(FileName,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);


DataModule2.ADOTable1.First;
a:=0;
j:=2;

while a<DataModule2.ADOTable1.RecordCount do
begin

WordDocument1.Tables.Item(1).Cell(j,1).Range.Text:=DataModule2.ADOTable1DSDesigner2.Value;
WordDocument1.Tables.Item(1).Cell(j,2).Range.Text:=DataModule2.ADOTable1DSDesigner3.Value;
WordDocument1.Tables.Item(1).Cell(j,3).Range.Text:=DataModule2.ADOTable1DSDesigner4.Value;
WordDocument1.Tables.Item(1).Cell(j,4).Range.Text:=DataModule2.ADOTable1_.AsString;

WordDocument1.Tables.Item(1).Cell(j,5).Range.Text:=DataModule2.ADOTable1_2.Value;
WordDocument1.Tables.Item(1).Cell(j,6).Range.Text:=DataModule2.ADOTable1_3.Value;

WordDocument1.Tables.Item(1).Rows.Add(EmptyParam);
a:=a+1;
j:=j+1;
DataModule2.ADOTable1.Next;

end;
end;