Закодить крестик в форме (Delphi)

[SL1M_DOGG]

Подскажите как закодить крестик в форме чтобы при выходе из программы нажатием на крестик Excel не висел в Диспетчере задач

[irt]

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Close;
end;

Где Form1 - основная форма программы
либо заменить на:

Application.Terminate;

[evg_m]

чтобы при выходе из программы нажатием на крестик Excel не висел в Диспетчере задач

Перевожу. Есть программа которая запускает Excel. Как сделать так чтобы при закрытии программы Excel тоже закрылся бы.

При программном запуске excel (и работе с ним из программы) используется какой-то компонент. (TexcelApplication). У него есть свойства ( в частности AutoQuit).

[Mad_Cat]

программном запуске excel (и работе с ним из программы) используется какой-то компонент

не всегда

var
  MyExcel: Variant;
  Rows, Columns: Integer;
begin
  MyExcel := CreateOleObject('Excel.Application');
  MyExcel.WorkBooks.Open('ExcelFileName');
  Rows := MyExcel.ActiveSheet.UsedRange.Rows.Count;
  Columns := MyExcel.ActiveSheet.UsedRange.Columns.Count;
{....}

так что ждем уточнений)