[AND_REY]

Обычный оператор if:

Код:

Var
 Bal: Integer = 0;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'Ответ' Then
 begin
  ShowMessage('Правильно');
  Inc(Bal, 10);
 end;
end;