新建了个unit文件，编译的时候竟然要res文件！(200分)

提示：file not found:OnlyOne.res;编译不能通过。
代码如下：
unit OnlyOne;

interface

uses
// Forms,
messages, Dialogs,
windows,
Registry,
Sysutils;

procedure OnlyOneApplicationRun(ThisTitle : String) ;
implementation

{$R *.RES}

procedure OnlyOneApplicationRun(ThisTitle : String) ;
var
Reg : TRegistry;
ApplicationTitle: string;
hMutex : THandle;
Ret : Integer;
begin
// ThisTitle := 'Htgl'; //不能用ThisTitle := Application.Title;

Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SoftWare/BookStar/OnlyOne',True) then
ApplicationTitle := Reg.ReadString('ProgramTile');

hMutex:=CreateMutex(nil,False,PChar(ApplicationTitle));
Ret:=GetLastError;
if (trim(ApplicationTitle)='') or (Ret<>ERROR_ALREADY_EXISTS) then
Reg.writeString('ProgramTile',ThisTitle)
else
begin
showmessage('无法启动当前程序，因为一个名为"'+ApplicationTitle+'"的进程已经打开数据库。');
// MessageBox('',PChar('无法启动当前程序，因为一个名为"'+ApplicationTitle+'"的进程已经打开数据库。'),'提示',MB_ICONERROR or MB_OK);
ReleaseMutex(hMutex);
Reg.CloseKey;
Reg.Free;
halt;
Exit;
end;

ReleaseMutex(hMutex);
Reg.CloseKey;
Reg.Free;
end;

end.

{$R *.RES}
//这里出问题了，这是个编译开关，你把这里删除就没问题的

RES文件是资源文件，默认为该窗体的资源文件，因为你的是单元，没有加窗体，所以要把
implementation后面的 {$R *.RES}注释掉。

55555，可怜我的200分呀。

hehe

结帖吧，LZ

奇怪哦，刚才怎么没有给分呢。再来。
还请japhe ，xfast帮忙看看这个问题，也是200分。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3416166

今天就要完工，急死了[][][]