как в делфи с помощью массивов создать программу переводчик

procedure TForm1.Button1Click(Sender: TObject);
const
mon: array[1..2] of string=('ÿ', 'òû');
var n: integer;
begin
n:= StrToInt(edit1.Text);
edit1.text:=mon[n];
end;

end.
И если да то что именно мне надо изменить в программе что бы она стала переводчиком с одного языка на другой?