Подскажите как скопировать папку(событие щелчок по кнопке) из каталога на дискету?

Я пишу следующий код, он файл на дискету копирует только когда в поле edit1.text укажешь полный путь, а мне хотелось бы чтобы он копировал по маске т. е. в поле edit1.text C:\xxx\*.* было что то типо этого но когда я ставлю копирование по маске он выдает ошибку что неправильный синтаксис имени файла.


procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
NewFileName: string;
filename:string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath('a:\')+ ExtractFileName(edit1.Text);
Msg := Format('Copy %s to %s?', [edit1.Text, NewFileName]);
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(edit1.Text, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);

try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;

end;