Exemplo TRY/EXCEPT - Delphi

Comando utilizado para o tratamento de exceções, segue um exemplo:


procedure TForm1.Button1Click(Sender: TObject);

var
  x : Real;

begin

  try
    x:=StrToFloat(Edit1.Text);
  except
    ShowMessage('O valor digitado não é número');
  end;

end;


O erro ocorrerá caso o valor informado em Edit1 não seja um número.