[Kailon]

А вот еще вариант, регулярные выражения:

Код:

uses
RegularExpressions;

procedure TForm1.Button1Click(Sender: TObject);
var
  RegEx: TRegEx;
  MatchColl: TMatchCollection;
  I: LongInt;
begin
  RegEx := TRegEx.Create('"SA":\d+\W\d+|"ZSD":\d+\W\d+');
  if RegEx.IsMatch(Memo1.Text) then
    begin
      MatchColl := RegEx.Matches(Memo1.Text);
      for I := 0 to MatchColl.Count - 1 do
        begin
          ListBox1.Items.Add(MatchColl.Item[i].Value);
        end;
    end;
end;