Source position: unit_miscellaneous.pas line 29
procedure SimpleMessage(
ID: Integer;
var Verdict: Integer
);