var
i , q : Integer;
s : Stirng;

s := 'あいうえお@@かきくけこ';
q := Pos( '@@' , s ) -1;
i := Length( s ) -q;
Delete( s , q , i );

@@の後ろを@@ごと削りたいのですがこのように書くと
「変数パラメータに定数オブジェクトを渡すことはできません」
とエラーを吐くのですがどこがいけないんでしょうか。。。