математические алгоритмы при шифровании

[Mimono]

Что нужно добавить, что б выводилось по одному. Например, если я введу abc, то выводилось 2,4,6. А то у меня выводить только последний символ (с)

[DELPHI] var s:string;
i,x,c:integer;

begin
s:=memo1.text;
for i:=1 to length(s) do
begin
if s[i]=' ' then x:=0;
if s[i]='a' then x:=1;
if s[i]='b' then x:=2;
if s[i]='c' then x:=3;

с:=(x*2);
memo2.text:=inttostr(с);
end;[/DELPHI]