Где здесь ошибка?

[T-dayne]

Вот процедура, происходящая по нажатию кнопки:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var v,r: integer;
begin
v:=strtoint(label2.Caption);
randomize;
while Length(pass)<>v do
begin
r:=random(4)+1;
case r of
1: if m.Checked then pass[random(strtoint(label2.Caption))+1]:=c2[random(27)+1];
2: if z.Checked then pass[random(strtoint(label2.Caption))+1]:=c1[random(27)+1];
3: if spec.Checked then pass[random(strtoint(label2.Caption))+1]:=c4[random(24)+1];
4: if n.Checked then pass[random(strtoint(label2.Caption))+1]:=c3[random(10)+1];
end
end; 


при компиляции пишет:

[Error] Unit1.pas(61): ';' expected but '.' found
[Error] Unit1.pas(63): Declaration expected but end of file found

язык дельфи

[evg_m]

procedure TForm1.Button1Click(Sender: TObject);
begin//1
while Length(pass)<>v do
begin//2
case r of//3
end//
end;//

в коде должно быть 3 end

[CodeExpert]

procedure TForm1.Button1Click(Sender: TObject);
var v,r: integer;
begin
v:=strtoint(label2.Caption);
randomize;
while Length(pass)<>v do
begin
r:=random(4)+1;
case r of
1: if m.Checked then pass[random(strtoint(label2.Caption))+1]:=c2[random(27)+1];
2: if z.Checked then pass[random(strtoint(label2.Caption))+1]:=c1[random(27)+1];
3: if spec.Checked then pass[random(strtoint(label2.Caption))+1]:=c4[random(24)+1];
4: if n.Checked then pass[random(strtoint(label2.Caption))+1]:=c3[random(10)+1];
end;
end;
end;

[FCShadow]

CodeExpert все правильно написал, только в конце еще

end.