Delphi 5, Parametretjek fungere ikke korrekt

Hej

Jeg har problemer med parametre tjek, parametrene sættes ind ved oprettelse af en genvej til applikationen så den fx set ud som følger:
applikation.exe /V200 /r300

Tjekket er som følger
    if ( ParamStr(i)[2] = 'V') then
    begin
      k := 2;
      While not ((ParamStr(i)[k+1] = '') or (ParamStr(i)[k+1] = ' ')) do
      begin
        Value := Value + ParamStr(i)[k+1];
        k := k+1;
      end;
        Result := StrToInt(Value)
    end;

    if ( ParamStr(i)[2] = 'r') then
    begin
        k := 2;
      While not ((ParamStr(i)[k+1] = '') or (ParamStr(i)[k+1] = ' ')) do
      begin
        Value := Value + ParamStr(i)[k+1];
        k := k+1;
      end;
        Result := Result + StrToInt(Value)
    end;


Men hvis jeg kun har enten /r eller /V så virker programmet som det skal men er begge på glipper begge parametre og ingen af værdierne opfanges.

Kan I se hvor problemet ligger?