Kopiering af db fil/backup

Jeg skal have lavet en backup af en Intrabase fil og bruger :

AssignFile(FromF,\'a:\\\'+dir+\'\\main.gdb\');
          Reset(FromF, 1);    { Record size = 1 }
          AssignFile(ToF,\'c:\\MainDb\\main.gdb\');    { Open output file }
          Rewrite(ToF, 1);    { Record size = 1 }
            repeat
              BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
              BlockWrite(ToF, Buf, NumRead, NumWritten);
            until (NumRead = 0) or (NumWritten <> NumRead);
              CloseFile(FromF);
              CloseFile(ToF);
, men kopien virker ikke.
Hvad er problemet ?
-- Nej jeg kan ikke bruge stifinderen til at kopiere med.