这是个相对简单的方法，不知道能不能帮到你
删除：
procedure TForm1.Button1Click(Sender: TObject);
begin
  deletefile(‘c:\123.txt‘);
end;
复制：
procedure TForm1.Button1Click(Sender: TObject);
begin
  copyfile(‘c:\123.txt‘,‘d:\123.txt‘,false);  //第一个参数是你要复制的文件，第二个是复制到哪
                                                              // 个目录下，false是 如果存在，则覆盖
end;

剪切的话，可以把两段代码合并，先复制、再删除

delphi 文件删除，复制