Radiobutton的判断问题~急·! ( 积分: 50 )

procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists('D:/EROS/1.txt')then // 核对在D:/EROS/目录里有没有1.txt文件//
//application.messagebox('文件存在','提示',mb_ok)
radiobutton1.Enabled:=False;//radiobutton1代表创建文件//
radiobutton1.Checked:=false;
radiobutton2.Enabled:=True;//radiobutton2代表删除文件//
radiobutton2.Checked:=True;
else //跳不过去？无法判断下面的代码//
radiobutton2.Enabled:=True;
radiobutton2.Checked:=True;
radiobutton1.Enabled:=false;
radiobutton1.Checked:=false;
end;
//我的总体意思是想要程序窗口一打开[程序一运行]就能自动核对在D:/EROS/目录里有没有1.txt文件,然后给出正确的判断~比如找到有1.txt文件那radiobutton1创建文件变成无用的暗淡的,此时radiobutton2删除文件变成明显的可显的.然后点击[确定按钮]后就能执行radiobutton2删除文件操作。否则相反~不知那位大哥帮忙给我解决一下这个问题~

procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists('D:/EROS/1.txt')then // 核对在D:/EROS/目录里有没有1.txt文件//
begin
//application.messagebox('文件存在','提示',mb_ok)
radiobutton1.Enabled:=False;//radiobutton1代表创建文件//
radiobutton1.Checked:=false;
radiobutton2.Enabled:=True;//radiobutton2代表删除文件//
radiobutton2.Checked:=True;
end
else //跳不过去？无法判断下面的代码//
begin
radiobutton2.Enabled:=True;
radiobutton2.Checked:=True;
radiobutton1.Enabled:=false;
radiobutton1.Checked:=false;
end;
end;

谢谢·~