[[xEsk]]

Tal como lo escribes es imposible, pero bueno, puedes usar algo asi:

Código Delphi [-]
procedure A(out deva: String; out devb: Boolean);
begin
   //Operacion1->deva:='A'; devb:=TRUE;
   //Operacion2->deva:='B'; devb:=FALSE;
end;

Saludos.