1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function ArgDiv(const msg: String) : Boolean;
var a,b,i: Integer;
    numArgs: Integer;
    Argument: Array[0..2] of String;
begin
  a:=1; b:=a; numArgs:=0;
  if msg<>'' then
    while msg[a]<>'' do
    begin
      if msg[a]='#' then 
      begin
        Argument[numArgs]:=''; 
        for i:=b to (a-1) do
          Argument[numArgs]:=Argument[numArgs]+msg[i];
        inc(numArgs); b:=a+1;
      end;
      inc(a);
    end;

  [...]

end;