[angvelem]

Код:

procedure TForm2.Button5Click(Sender: TObject);
var
  St, St1 : String;
  I, J : Integer;
begin
  I := PosEx(Edit1.Text, '2$', 0);
  J := PosEx(Edit1.Text, ' ', 0);
  St := Copy(Edit1.Text, I, J - 1);

  I := PosEx(Edit1.Text, '2$', J);
  J := PosEx(Edit1.Text, ' ', I);
  St1 := Copy(Edit1.Text, I, J - 1);
end;

Примерно так, если не соврал.