[Anonymous]

Это ж на сколько нужно быть ленивым или непонятливым чтоб не написать:

procedure Form1.BtnClick(sender: Ponter);
begin
Edit2.Text := _code1(Edit1.Text);
Edit3.Text := _code2(Edit2.Text);
end;