这个程序真是怪，怪得出奇，我急用,急，急，急，请帮帮忙，看看，谢谢！在线等待! (8分)

各位大富翁，请问如何给一个Delphi程序包装一下？意思就是说给他的应用程序改一下图标，不要它成为Delphi默认执行后的exe那种图标
还有一个小小的问题就是我想读取一个文件，用是的如下代码：但是奇怪的就是当我读取一个文件后，此文件就不能用了，比如说，当我读取一个.rm文件后，此文件将不能再放了，并且文件变小了，都是青一色的大小，128字节，并且如果这个.rm文件不存在，执行后就自动新生成一个.rm文件,我简直无语了，请各位富翁帮我找找原因，先谢谢了哈！
窗体控件如下：窗体上有一个buttom和一个ProgressBar1，
buttom上写了如下代码：
procedure TRead.StartClick(Sender: TObject);
const
FName='rm.rm';
var
F:File;
MyData:array[1..2048] of byte;
BytesRead:LongInt;
begin
AssignFile(F,FName);
try
Reset(F);
Read.ProgressBar1.Max:=FileSize(F);
if (Read.ProgressBar1.Max>10) then
Read.ProgressBar1.Step:=Read.ProgressBar1.Max div 10
else
Read.ProgressBar1.Step:=Read.ProgressBar1.Max;
while (Read.ProgressBar1.Position<Read.ProgressBar1.Max) do
begin
BlockRead(F,MyData,Read.ProgressBar1.Step,BytesRead);
Read.ProgressBar1.StepIt;
end;
finally;
CloseFile(F);
end;
end;
窗体上写了如下代码：
procedure TRead.FormCreate(Sender: TObject);
const
FName='rm.rm';
var
F:File;
MyData:array[1..2048] of byte;
result:integer;
begin
AssignFile(F,FName);
Rewrite(F);
fillchar(mydata,sizeof(mydata),'A');
BlockWrite(F,MyData,1,result);
closefile(f);
end;
请各位富翁帮我看看，找找原因，先谢谢了哈！注:我是照到书上抄的,不是自己写的哈!
不好意思哈,我没多少钱了,只好这样子,不是我舍不得,而是我怕这点钱花光了就玩完了,真不意思,请大家给给面子,回答一下哈,谢谢!下次一定多给点!

第一个问题，Project-Option-Application-LoadICON
第二个问题，你给的钱也太少了点吧！！！！

第二个问题：废话，你就是这么写的！

第一个问题：同 kisber；
第二个问题：你在form.creat的时候就创建了一个rm.rm文件，这里也没有见到你给 F 赋其他的值，而是把你创建的rm.rm 赋给它了，能执行才怪， 同 passion；

那我应该怎么写才对呢?咋赋值呢?请给说明一下,我是个初学者,请说详细一点哈,谢谢!

既然你是在书上抄的这段代码，可能还有context ，明白这段代码是干吗的就行了，接着看书吧

谢谢逝风,但是还是请大家给我说一下答案哈!真的,我想知道,谢谢!快快,急急!

补充第一个问题：你可以搜索扩展名为*.ico的文件，挑选自己喜欢的！

Rewrite(F);//这里啊！覆盖写啊！晕

谢了!