копирование файлов

[matus]

подскажите, пожалуйста, как грамотно скопировать все файлы нужного разрешения из указанной директории (например, с диска) в другую директорию? или,попросту, скопировать данные из одной папки в другую?
(я нашла функцию CopyFrom, но она вроде отвечает за копирование одного файла). Спасибо за внимание

[AlDelta]

В Uses ShellApi обязательно.

procedure TForm1.Button1Click(Sender: TObject);
var
SHFileOpStruct : TSHFileOpStruct;
From : array [0..255] of Char;
begin
SetCurrentDirectory( PChar( 'C:\1' ) );//Откуда копировать
From := '*.txt';//указываешь какой тип файлов копировать.
with SHFileOpStruct do
begin
Wnd:=Handle;
wFunc:=FO_COPY;
pFrom:=@From;
pTo:=PChar('D:\2');//Куда копировать
fFlags:=0;
fAnyOperationsAborted := False;
hNameMappings:=nil;
lpszProgressTitle:=nil;
end;
SHFileOperation( SHFileOpStruct );
end;

[matus]

Спасибо, выручили!!!!