Przenieś i wykasuj pliki....

Witam!
Mam takie dwa kodziki do przenoszenia i usuwania plików.

Przenoszenie: dlaczego ten sposób przenoszenia plików z danego folderu do innego nie chce działać? Chodzi mi o te gwiazdki .

procedure TForm1.Button14Click(Sender: TObject);
var Rekord:TSHFileOpStructA;
begin
with Rekord do
  begin
   Wnd:=Handle;
   wFunc:=FO_MOVE;
 pFrom:=PChar(Edit1.Text+'\'+'*.*');
  pTo:=PChar(Edit2.Text+'\'+'*.*');
   fFlags:=FOF_NOCONFIRMMKDIR;
   end;
 if SHFileOperation(Rekord)<>0 then
  edit6.Text:='BŁĄD!!!';
end; 

Usuwanie: tak samo tutaj. też chciałem usunąć wszystkie pliki z danego folderu trwale, ale nie chce działać:( Gdzie robię błędy?

procedure TForm1.Button13Click(Sender: TObject);
begin
DeleteFile(Edit2.Text+'\'+'*.*');
end; 

chyba te funkcje nie obsługują masek więc musisz posłużyć się findfirst, findnext gdzie już można się posługiwać maskami

Jestem początkujący, no ale spróbuję coś napisać w co wątpie :)
Ogólnie te pliki wyświetlam w FileListBox.