Hola,
Puedes tratar de capturar la excepción correspondiente. A mí se me ocurre esto a bote pronto, pero, agradecería cualquier crítica constructiva al respecto.
Código Delphi
[-]
try
Edit3.Text := IntToStr(
StrToInt(Edit1.Text)
div StrToInt(Edit2.Text)
);
except
on E: EConvertError do begin
ShowMessage(E.Message);
end;
on E: EDivByZero do begin
ShowMessage(E.Message);
end;
on E: Exception do begin
ShowMessage(E.Message);
end;
end;