Usuwanie,Progrssbar,edit

Za pomocą kodu:

Deltefile('Scieżka') moge usunąc plik

Jak moge zrobic aby w edit wpisywac ścieżke plik a nastepnie po wpianiu nacisnąć na buttona i ta funkcja sie wywołała. Aha i po naciśnieciu ten proces był pokazywany w progressbar?
help [!!!]

Mozesz to zrobic tak:
Na forme kładziesz TButton i TEdit, klikasz dwa razy na TButton i:

procedure tForm1.OnButton1Click(Sender:TObject);
begin
DeleteFile(Edit1.Text);
end;

A z tym progressbar'em to może sie myle ale tak sie nie da zrobic :P

usuniecie pliku to ulamek sekundy, jak chcesz to pokazac na progressbarze?

Jeśli dla jednego pliku to:

begin
 ProgressBar.Position := 0;
 if DeleteFile(Edit1.Text) = True then ProgressBar.Position := 100;
end;

Jeśli dla wielu plików np.: conajmniej 2 to, załóżmy, że masz listę plików w ListBox:

var
 i: integer;
begin
 ProgressBar.Position := 0;
 ProgressBar.Max      := ListBox.Items.Count-1;
 for i := 0 to ListBox.Items.Count-1 do 
   begin
    if DeleteFile(ListBox.Items.Strings[i]) = True then ListBox.Items.Delete(i);
    Application.ProcessMessages;
    ProgressBar.Position := i;
   end;
end;