简单问题求助~~~~~~~~~~~~~~~

为什么我的程序不能执行呢？？错在哪里了？？unit unit1;interfaceuses
windows, messages, mmsystem, classes, graphics, controls, forms, dialogs,
stdctrls;type
tform1 = class(tform)
soundbtn: tbutton;
procedure soundbtnclick(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;var
form1: tform1;implementation{$r *.dfm}
{$r my.res}
procedure tform1.soundbtnclick(sender: tobject);
var
findhandle,reshandle:thandle;
resptr:pointer;
begin
findhandle:=findresource(hinstance,’mymusic’,’wave’);
if findhandle <> 0
then begin
reshandle:=loadresource(hinstance,findhandle);
if reshandle <> 0
then begin
resptr:=lockresource(reshandle);
if resptr <> nil
then sndplaysound(pchar(resptr),snd_async or snd_async);
unlockresource(reshandle);
end;
freeresource(findhandle);
end;end;‘底下的提示是这么说的：[error] unit1.pas(47): 说明盼望但是 文件结束发现
[fatal error] project1.dpr(5): 不能编译使用单元 ’unit1.pas’help~~~~~~~~~~help~~~~~~~~~~~
另外请问哪里有DELPHI5的教程下载，请给出地址，谢谢~~~~~~~~~~~~~