procedure TForm2.Button5Click(Sender: TObject);
var
KP, KS : Integer;
S, Word : string;
begin
s := edit1.text;
KP := Pos('$', S);
KS := Pos(' ', S);
while KP > 0 do begin
Word := Copy(S, KP+1, KS-KP-1);
ShowMessage(Word);
Inc(KP); KP := PosEx('$', S, KP);
Inc(KS); KS := PosEx(' ', S, KS);
if KS = 0 then KS := Length(S)+1;
end;
end;
вот еще вариант
