Help~!

function CheckString(StrIn:string;index:integer;var temp:boolean):string;
begin
  temp:=true;
  if index=13 then
      strIn:=Copy(strIn,Length(strIn)-6,8);
       if strIn:='00000000' then
       temp:=false;
  if index=15 then
       temp:=true;
  StrIn:='"'+trim(StrIn)+'"';
  Result:=StrIn;
end;