How To Delete File To Recycle Bin

we can delete the file to recycle bin using shellapi function :

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyFileStruct: TSHFileOpStruct;
begin
  with MyFileStruct do
  begin
    Wnd:=Form1.Handle;
    wFunc:=FO_DELETE;
    pFrom:=PChar(Edit1.Text);
    fFlags:=FOF_ALLOWUNDO;
  end;
  try
    SHFileOperation(MyFileStruct);
  except
    on EAccessViolation do Edit1.Text:='';
  end;
end;