const
　　Str: string = '';
　　StrMax: integer = 0;
var
　　TokenPos: integer;
begin
　　if TgtStr <> '' then
　　begin
　　　　Str := TgtStr;

>の
>Str:=TgtStr;
>で，「代入できない左辺値です」とエラーが出ます，以前までは何も問題なくコ
>ンパイルできていました．

解決方法も「それでいいのか？お前」というものでﾜﾗﾀ