[fpc-pascal]Problem of ParamStr

[milimeter]

Hello, everybody

  I wrote the following code in program foo.pp:
>>>>>>>>>
  writeln(ParamStr(1));
<<<<<<<<<
  And when I run it with a parameter "foo *.txt", I mean to get "*.txt", but 
unfortunately, it prints out "test.txt", where test.txt is a file under the 
same directory. I know the shell extends my command to "foo test.txt". How 
can I get the original parameter without the extension of shell?

  Thanks,
  mili