【列表7.8】摘錄自SelectForm.pas的程序代碼。 
porocedure TTTypeSelect. FormLoaded(Sender: TObject);
var
 F: TextFile;
 str: String;
begin
 AssignFile( F, '/proc/filesystems' );
 FileMode := fmOpenRead;
 Reset( F );
 Readln( F, str );
  [$I-}
 while ( Length( str ) > 0 ) do
   begin
    str := Trim( str );
    if ( Pos( 'nodev', str ) = 0 )
      then lbFsTypes. Items.Add( str );
    Readln( f, str );
   end;
 CloseFile( F );
 {$I+}
end;