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