[KOOL]

если тока так

Код:

procedure Main(a: Integer)
begin
 if a < 0 then
  if Error then
   Exit;
end;

function Exit : boolean
begin
 ShowMessage('Error');
 Result:=true;
end;

а зачем такое извращение?