Как сделать mount?

Дата: 01.01.2007

{  The following example shows a Linux-Console application,
   which mount the floppy. 
} 

program Project1; 

{$APPTYPE CONSOLE} 
uses 
  Libc; 

begin 
  if mount('/dev/fd0', '/mnt/floppy', 'vfat', MS_RDONLY, nil) = -1 then 
    WriteLn('Mount return : ', Errno, '(', strerror(errno), ')') 
  else 
    WriteLn('Floppy mounted'); 
end.