CopyFile i Progress Bar

Witajcie
Otóż mam FileListBoxa oraz button któy kopiuje pliki zaznaczone bezpośrednio na pulpit użytkownika
kod wygląda tak:

procedure TForm1.Button5Click(Sender: TObject);
begin
   Location:=FileListBox1.FileName;
CopyFile(PAnsichar(Location),PAnsichar(GetFolderPath(CSIDL_DESKTOPDIRECTORY)+'\'+ExtractFileName(Location)),false);


end;

Moje pytanie brzmi czy da się w jakiś łatwy sposób, jeśli nie to jaki inny zrobić działającego progressbara. Przeszukiwałem już forum trafiłem na 2 tematy lecz nie są mi pomocne.

Napisz własną procedurę do kopiowania plików? ...

korzystając z copyfile progressbara nie zrobisz
zmień metodę na tą którą znalazłeś w tych 2 topicach

Polecam ten link:
http://msdn.microsoft.com/en-us/library/aa363852(VS.85).aspx

var Fo:TSHFileOpStruct;
var SrcPath,DstPath:String;

  for ... do
  begin
      SrcPath:=SrcPath+List[I].SrcPathName+#0;
      DstPath:=DstPath+List[I].DstPathName+#0;
  end;

    Fo.Wnd:=Handle;
    Fo.wFunc:=FO_COPY;
    Fo.pFrom:=PChar(SrcPath+#0);
    Fo.pTo:=PChar(DstPath+#0);
    Fo.fFlags:=FOF_NOCONFIRMATION or FOF_MULTIDESTFILES or FOF_ALLOWUNDO;
    Fo.fAnyOperationsAborted:=false;
    Fo.hNameMappings:=nil;
    Fo.lpszProgressTitle:=nil;
    SHFileOperation(Fo);