求教代码.怎样按要求复制文本? ( 积分: 100 )

例如'c:/123/'文本夹中有222个文本文档.想从这222中抽150文本复制到c:/124/,每次复制150个文本不能相同.并保存c:/124/01中,,,,下一次执行代码时,再保存c:/124/02,

提供思路:
///////Begin FindFirst,FindNext,FindClose
procedure TForm1.Button1Click(Sender: TObject);
var
vSearchRec: TSearchRec;
I: Integer;
begin
Memo1.Clear;
I := FindFirst(Edit1.Text, faAnyFile, vSearchRec);
while I = 0 do begin
Memo1.Lines.Add(vSearchRec.Name);
I := FindNext(vSearchRec);
end;
FindClose(vSearchRec);
end;

shellApi:
SHFILEOPSTRUCT操作

typedef struct _SHFILEOPSTRUCT { // shfos
HWND hwnd;
UINT wFunc;
LPCSTR pFrom;
LPCSTR pTo;
FILEOP_FLAGS fFlags;
BOOL fAnyOperationsAborted;
LPVOID hNameMappings;
LPCSTR lpszProgressTitle;
} SHFILEOPSTRUCT, FAR *LPSHFILEOPSTRUCT;

我还是菜鸟,可否贴全部.