копирование файлов по начальной маске

[kAAre]

Времени доброго, проблема..
Допустим в папке есть 2 файла, начинаются они c - 'vpsn' а дальше имя идет по ключу, допустим у них будет название у одного 'vpsn12499853585' а у второго 'vpsnFakgg9F2d' проблема в том, что нужно скопировать эти 2 файла на удаленный каталог не зная их полного имени а только начальную маску которая постоянно 'vpsn'

[DIgorevich]

  var
    SearchRec: TSearchRec;
begin
if FindFirst('Ваша директория'+ 'vpsn*.*', faAnyFile, SearchRec) = 0 then
    repeat
      //Здесь делаем с файлом что угодно, обращаясь к нему через SearchRec.name
    until
  FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;