1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

function DeleteFileToRecycleBin(const AFile: string): boolean;
var
  Operation: TSHFileOpStruct;
begin
  with Operation do
  begin
    Wnd := Application.Handle;
    wFunc := FO_DELETE;
    pFrom := PChar(AFile +#0);
    pTo := Nil;
    { in den Papierkorb verschieben / keine
      Sicherheitsabfrage }
    fFlags := FOF_ALLOWUNDO; // or FOF_NOCONFIRMATION;
  end;
  Result := SHFileOperation(Operation) = 0;
end;

procedure TForm2.RemoveFilesDanger1Click(Sender: TObject);
var i : integer;
    ini : Tinifile;
    ffiles : string;
begin
ffiles := '';

if bsSkinCheckListBox1.Items.Count <> 0 then
begin
for i:=0 to bsSkinCheckListBox1.items.Count -1 do
  begin
  if bsSkinCheckListBox1.checked[i] then
  begin
  ffiles := ffiles + bsSkinCheckListBox1.items[i] + #0;
  Form1.Label4.Caption := '0';
  Close;
  end;
  DeleteFileToRecycleBin(ffiles); //DeleteFile(bsSkinCheckListBox1.items[i]); //   .Selected[i]);
  end;
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm2.RemoveFilesDanger1Click(Sender: TObject);  
var i : integer;  
    ini : Tinifile;  
    ffiles : string;  
begin  
  ffiles := '';  

 
  if bsSkinCheckListBox1.Items.Count <> 0 then  
  begin  
    for i:=0 to bsSkinCheckListBox1.items.Count -1 do  
    begin  
      if bsSkinCheckListBox1.checked[i] then  
      begin  
        ffiles := ffiles + bsSkinCheckListBox1.items[i] + #0;  
        Form1.Label4.Caption := '0';  
        Close;  
      end;  
      // DeleteFileToRecycleBin(ffiles); // <= Hier weg
    end;  
    DeleteFileToRecycleBin(ffiles); // <= Und hier hin
  end;  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm2.RemoveFilesDanger1Click(Sender: TObject);  
var i : integer;  
    ini : Tinifile;  
begin  
  if bsSkinCheckListBox1.Items.Count <> 0 then  
  begin  
    for i:=0 to bsSkinCheckListBox1.items.Count -1 do  
    begin  
      if bsSkinCheckListBox1.checked[i] then  
      begin  
        DeleteFileToRecycleBin( bsSkinCheckListBox1.items[i] );  
        Form1.Label4.Caption := '0';  
        Close;  
      end;  
    end;  
  end;  
end;					

1:

pFrom := PChar(AFile +#0);