新手刚接触不久，发现一个问题，我在进行文件操作的时候无，无论删除，移动，复制，都不好使，执行成功后无反应
procedure TForm1.Button1Click(Sender: TObject);
begin
try
deletefile('d:\123.txt');
showmessage('删除成功');
except
showmessage('删除失败')
end;
end;
end.
问别人说是没有做flush或close类似操作，求助怎能弄，急

RaiseLastOsError 会告诉你为什么失败。

try
deletefile('d:\123.txt');
showmessage('删除成功');
except
on E:Exception do
showmessage('删除失败,错误原因为：'+E.Message)
end;