uses ShellApi;


function DeleteFilesToRecycleBin(const APath: string ): Boolean;
var
AStruct: TShFileOpStruct;
begin
if Length(APath) = 0 then
Exit;
AStruct.Wnd := 0;
AStruct.wFunc := FO_DELETE;
AStruct.pFrom := PChar(APath);
AStruct.fFlags := FOF_ALLOWUNDO;
Result:= ShFileOperation(AStruct) <> 0;
end;