Ты, не поверишь, но уже работает.
Ан нет, извини, не заметилЮ, что для 2-х разных Memo...
Код:
var
str:String;
begin
str:=Memo1.Text;
str := StringReplace(Memo1.Text, '+', '1 ', [rfReplaceAll]);
Memo2.Text := StringReplace(str, '-', '0 ', [rfReplaceAll]);