нещо от сорта на следното треа ти свърши работа:
Function Convert(Var String1:String):String;
Const
Lat='AaBbCcDdEeFf';
Cyr='АаБбЦцДдЕеФф';
ch:char;P,i:Integer;S:String;
begin
s:='';
for i:=1 to Length(String1) do
begin
ch:=string1;
P:=Pos(ch,lat);
if P>0 then ch:=Cyr[P];
s:=s+ch;
end;
result:=s;
end;

Lat и Cyr стринговете ги допълваш така, че съответните букви да са на едно и също място в единия и другия стринг... Разбира се, че кода може да се оптимизира по различни варианти, но общо взето идеята е тази.
Може да съм допуснал нейде неква синтактична грешка. Некоя точйа, запетайка и т.н.