[Bargest]

Код:

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

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

Поскольку в Copy вторым параметром количество символов.