Помогите найти ошибку

[Dmitriy]

Помогите найти ошибку

procedure TForm1.Button1Click(Sender: TObject);
var
bal:integer;
begin
bal:=0;
label3.Caption:=IntToStr(RadioGroup 1.ItemIndex);
if RadioGroup1.ItemIndex=0 then
bal:=bal+1 else bal:=bal ;

if bal=1 then form2.ShowHint

end;
end;


end.

Заранее спасибо.

[Tayfun]

if bal=1 then form2.ShowHint

Попробуй

if bal=1 then form2.ShowHint:=true;

или

if bal=1 then form2.ShowHint:=false;

Да и end кажется лишний

[Terran]

Вам нужно вместо

 if bal=1 then form2.ShowHint
end;

сделать так:

if bal=1 then
 form2.ShowHint:=true;

[Arigato]

Dmitriy
Используйте отступы, что бы видеть структуру кода. У Вам появился лишний end.
Кроме того (не ошибка, конечно, но все же), эта конструкция совершенно не нужна:

else bal:=bal ;

Да и не понятно, зачем вообще нужен bal. Может будет лучше так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label3.Caption := IntToStr (RadioGroup1.ItemIndex);
  if RadioGroup1.ItemIndex = 0 then form2.ShowHint := True;
end;

[Dmitriy]

Спасибо всем, что помогли разобраться.