ЕI
Size: a a a
ЕI
z
procedure TApplication.RunLoop;
begin
repeat
if CaptureExceptions then
try // run with try..except
HandleMessage;
except
HandleException(Self);
end
else
HandleMessage; // run without try..except
until Terminated;
end;
z
z
AS
RS
ЕI
DB
DB
z
DB
z
DB
DB
DB
DB
DB
z
z
DB