[Drozh]

Можно ли из вызываемой процедуры завершить вызывающую? т.е

Код:

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

procedure Exit;
begin
 ShowMessage('Error');

 Exit Main
end;

[KOOL]

если тока так

Код:

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

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

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

[lmikle]

Можно, и гораздо проще. Вызови Abort. Это т.н. silent exception. Соотв. в вызывающей процке надо учитывать это при обработке эксепшенов.