🚀 go-pugleaf

hello,
I wrote this procedure which remove the spaces after and before the "equal"
sign,
for example --> test        =                  test2
      becomes--> test = test2
and -->test=test2
     becomes-->test = test2
(like the visual basic editor)
my function was like this:

Procedure RemoveSpaces (Ln:integer);
var ReStr:String;
    Re,re,i:integer;
    F1,F2:boolean;
begin
ReStr := maintext.lines[ln-1];
Re:= instrmt('=',lnbegin,toend - lnbegin ,[ ],true,true); -->just like
maintext.findtext (maintext is a richedit)
Re2:= firstcolumn(ln) -1;
repeat
if re <> -1 then begin
   Restr[Re -re2]:= '`';
   for i := 1 to length(restr) do begin
      try
         if (restr[re - i -re2] = ' ') And(f1=false) then restr[re -
i -re2]:= '`' else f1 := true;
         if (restr[re + i -re2] = ' ') And(f2=false) then restr[re + i-re2]
:= '`' else f2 := true;
         if (f1=true) and (f2=true) then break;
      except
         //
      end;
   end;
Re:= instrmt('=',Re+1 ,toend - lnbegin ,[],true,true);
end;
until Re= -1;
ReStr:= StringReplace(restr,'%',' = ',[rfreplaceall]); ---> error occurs
here!!
ReStr:= StringReplace(restr,'`','',[rfreplaceall]);
maintext.lines[ln-1] := ReStr;
end;

this procedure is extremely slow when loading text from a file cause it's
called on every line, sometimes there is strange EAccessViolation error on
the stringreplace line(still don't know why), anyone can help me to improve
a better procedure?

Yehia