Вот накатал. У меня работает:
program NewProject3;
var id5,id51,id52,id53,i:integer;
dlang:boolean;
lang:string;
begin
showform;
lang:='Russian';
id5:=formaddchoice('Language',CH_EXCLUSIVE);
dlang:=false;
for i:=1 to 2 do
begin
if (lang='English') xor (dlang=true) and (id51=0) then
begin id51:=choiceappendstring(id5,'English');
dlang:=true;end;
if (lang='Russian') xor (dlang=true) and (id52=0) then
begin id52:=choiceappendstring(id5,'Русский');
dlang:=true;end;
if (lang='Ukrainian') xor (dlang=true) and (id53=0) then
begin id53:=choiceappendstring(id5,'Українська');
dlang:=true;end;
end;
repaint;
delay(3000);
end.