[ALexandr555]

Код:

n1:=pos('- (',Msg);
  n2:=pos('):',Msg);
  a:=strTOint(copy(Msg,n1,n2-n1));
  Memo2.Lines.add(intTOstr(a));

вот сделал но в "a" почемуто ничего не забивается.