xe7 建立一个unit单元，编译无法找到

[g58521547]

今天用xe7, 在一打开的project里面，FILE-NEW-UNIT,
里面放了一个打算做公用的过程，然后在主单元里面use了这个unit, 编译无法通过，显示
[dcc32 Error] E1026 File not found: 'UnitInOut.dfm'

请各位高手看看，怎么回事？明明这个单元文件就和其他的窗体文件在一个文件夹里啊。

unit名字是unitInOut, 代码如下：

unit UnitInOut;

interface

uses ComObj,data.win.adodb;

Procedure OutputExcel(fromQuery: TADOQuery; filename: string);

implementation

{$R *.dfm}

uses  Vcl.Dialogs, System.SysUtils, System.Variants,
      data.db;

Procedure OutputExcel(fromQuery: TADOQuery; filename: string);
var
  Eclapp: variant;
  i, j: integer;
begin
  try
    Eclapp := CreateOleObject('Excel.Application');
  except
    // screen.cursor:=crDefault;
    showmessage('计算机没有安装EXCEL程序，无法调用Excel！');
    exit;
  end;
  Eclapp.Visible := False;
  if FileExists(filename) then
    DeleteFile(filename);
  fromQuery.DisableControls;
  fromQuery.First;
  i := 2;
  while not fromQuery.Eof do
  begin
    for j := 0 to fromQuery.FieldCount - 1 do
      Eclapp.cells[i, j] := fromQuery.Fields[j].AsString;
    // eclapp.cells[i,2] := fromQuery.Fields[1].AsString;
    // eclapp.cells[i,3] := fromQuery.Fields[2].AsString;
    // eclapp.cells[i,4] := fromQuery.Fields[3].AsString;
    inc(i);
    fromQuery.Next;
    // application.ProcessMessages;
  end;
  fromQuery.EnableControls;
  Eclapp.Visible := False;
  Eclapp.activeworkbook.SaveAs(filename);
  Eclapp.Quit;
  Eclapp := Unassigned;
end;

end.

[日立奔腾浪潮微软松下联想]

你这里面就没有form，所以{$R *.dfm}应该删掉。

[g58521547]

是的，我刚才重新建了一个unit，以比较发现把你说的删除就可以了。 但是这个好像是系统自带的吧。我没有手工加过啊。