1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

prcedure TForm1.Button1Click(Sender:TObject);
var aZahl:Integer;
begin
  try
    aZahl:=StrToInt(Edit1.Text); // oder StrToFloat für Fließkomma
    ShowMessage('Ergebnis: '+IntToStr(aZahl Div 56));
  except
    on EConvertError do
      ShowMessage('Text '+Edit1.Text+' ist keine Zahl');
  end; // try
end;