请教：delphi使用olevariant对象的方式编辑powerpoint

由于需求需要用delphi使用olevariant对象的方式编辑powerpoint但是我的代码总是出现打开的ppt程序不能再窗体的左上端显示（最大化之后，进行还原操作，就会出现如下图所示的问题）当最大化的时候就正常显示有做过的吗，能指教一下这是怎么回事吗（我已经在resize事件中控制了ppt的显示位置和大小，最大化的时候管用，还原之后不管用）。 另外，有知道怎么把如下图中宏框中的标题栏隐藏的吗？以下是打开ppt代码：function TForm1.OpenPowerPointFile(FileName:string;IsEdit:Boolean):Boolean;
var 
 i:Integer; sCaption:string;
begin
  PptApp.visible := true; 
  sCaption := PptApp.caption; 
  PptApp.width := width-width*0.254; 
  PptApp.height:= height; 
  PptApp.left := 0; PptApp.top := 0; 
  Winapi.Windows.SetParent(FindWindow(nil,Pchar(sCaption)),self.handle); 
  PptApp.Presentations.Open(FileName,False, False, True);
end;resize事件代码：procedure TForm1.FormResize(Sender: TObject);
begin 
  PptApp.width := width-width*0.254;; 
  PptApp.height:= height; 
  PptApp.left := 0; 
  PptApp.top := 0;
end;