Сделал так
Не могу использовать OleContainer так как суть работы заключается в OLE перетаскивании данных из одного обьекта
в ексель, а сним при потере фокуса в контейнере нифига не сделаешь.

procedure TDSBOXF.OpenTemplate(Name: string);
begin
try
SaveName := Name;
XLap := CreateOLEObject('Excel.Application');
Workbook := XLap.WorkBooks.Open(Name);
xlap.Visible := true;
xlap.DefaultFilePath := ExtractFileDir(Name);
except
end;
Show;
end;

procedure TDSBOXF.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: integer;
findapp: string;
begin

////////////////////////////////////////////////////////////////////////////////
// Save Workbook
////////////////////////////////////////////////////////////////////////////////

try
xlap.DisplayAlerts := False;
Workbook.SaveAs(SaveNAme);
Workbook.Close(False);
Application.ProcessMessages;
except
on E: Exception do
begin
// if (E.ClassName = 'EOleSysError') AND (EOleSysError(E).ErrorCode = -2147417848) then Exit; // Отключен клиент
if (E.ClassName = 'EOleSysError') and (EOleSysError(E).ErrorCode = -2147418111) then // Заблокирован Excel
begin
findapp := 'Microsoft Excel — ' + ChangeFileExt(ExtractFileNAme(SaveNAme), '');
if not AppActivate(Pchar(findapp)) then
begin
findapp := 'Microsoft Excel*';
if not AppActivate(Pchar(findapp)) then Exit;
end;
begin
try
SendKeys('{TAB}', True);
Application.ProcessMessages;
xlap.DisplayAlerts := False;
Workbook.SaveAs(SaveNAme);
Workbook.Close(False);
Application.ProcessMessages;
except
end;
end;
end;
end;
end;

Покритикуйте!
Посылаю TAB через Sendkey32 немного модифицированный.
Там еще пишут XLap := CreateOLEObject('Excel.Application 7.8.9... ');
Вот эти 7-8-9 сильно нужны или нет ? У меня вроде и так все работает.