[Brons14]

Здраствуйте, помогите пожалуйста с задачей
нужно чтобы введенный символ в edit1 в тексте, введенном в memo1, заменялись на символ введенный в edit2, если символа в тексте нет то к тексту добавлялись символы из edit1

Код:

var
S: string;
i: integer;
begin
i:=length(S);
S:=memo1.Text;
if S[i]=edit1.Text then memo1.Text:=edit2.text else memo1.Text:=memo1.Text+edit2.text;
end;
end.

так введенное в edit2 просто добавляется к тексту(