[TOJluK]

Код:

str:=Memo_1.text+ ... +Memo_X.Text;
str:=StringReplace(str, '-', '0 ', [rfReplaceAll]);
str:=StringReplace(str, '+', '1 ', [rfReplaceAll]);
Memo_X.Text:=str;

Если Memo оч много, то еще можно использовать FindComponent