音乐头文件怎么做？音乐流函数怎么写？请给函数例子！个位DFW大哥帮帮小弟我吧！ (50分)

有关音乐流程序“音乐头文件”的制作？
问题一：我想知道怎样把WAV、MID、MP3等音乐文件用“流”添加和生成EXE文件就是怎么样把有关的音乐文件有选择的添加给“头文件”！
谁能把如下代码改为WAV、MID、MP3音乐流Load
Function Cjt_JpgLoad(JpgImg:Timage;SourceFile:String):Boolean;
var
Source:TFileStream;
MyFileSize:integer;
Myjpg: TJpegImage;
begin

try
Myjpg:= TJpegImage.Create;
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
try
Source.Seek(-sizeof(MyFileSize),soFromEnd);
Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));
Source.Seek(-MyFileSize,soFromEnd);
Myjpg.LoadFromStream(Source);
JpgImg.Picture.Bitmap.Assign(Myjpg);
finally
Source.Free;
Myjpg.free;
end;

except
Result:=false;
Exit;
end;

Result:=true;
end;

问题二：怎么样做成循环播放音乐头文件？
问题三：怎么样用“流”更改要生成EXE文件的头文件窗体大小或者里面的控件大小显示和字符串的传递？