var
Np,N,i: Integer;
S: string;
begin
for i:=0 to listbox1.Count - 1 do
  begin
     s:=ListBox1.Items.Strings[i];
     N := Pos('=',S);
     while N > 0 DO
      begin
        NP := N;
        N:=posEx('=',S,N+1);
      end;
          Delete(S,NP+1, MaxInt);
        ListBox1.Items.Strings[i]:=S;
        Timer1.Enabled := True;
  end;