error en funcion

[diego007]

Hola Amigos, tengo la siguiente funcion que me da error, no se cual es el problema, asi que si podrian ayudarme:

Código Delphi [-]
procedure compara(Lista1:TStringList; Lista2: TStringList; var comparacion:TStringList);
var
K,L,M,Long,I,J:Integer;
Str, Str1:String;
begin
I:=0;
  while (I<=Lista1.Count-1) do begin
    Str:=Lista1.Strings[i];
    J:=0;
    while (J<=Lista1.Count-1) and (Lista1.Strings[i]<>Lista2.Strings[J]) do begin
      Str:=Lista2.Strings[J];
      J:=J+1;
    end;
    if (J<=Lista2.Count-1) then begin
      Lista2.Delete(J);
      Lista1.Delete(I);
    end
    else
      I:=I+1;
  end;
  //***********
  try
    comparacion.Destroy;
  finally
    comparacion.Create;
  end;
  Long:=Lista1.Count-1;
  for K := 0 to Long do begin
    Str1:='[deleted]: '+Lista1.Strings[K];
    comparacion.Append(Str1);
  end;
  Long:=Lista2.Count-1;
  for L := 0 to Long do begin
    Str1:='[new]: '+Lista2.Strings[L];
    //MatarProcesos(Lista2.Strings[L]);
    comparacion.Append(Str1);
  end;
  //***********
  Long:=comparacion.Count-1;
  Form1.ListBox1.Items.Clear;
  for M := 0 to Long do
    Form1.ListBox1.Items.Append(comparacion.Strings[M]);
  end;
  //************
end;

En el ultimo end me sale: ´.´ expected but ´;´ found
please, help me