[lmikle]

Итого, есть функция, которая имеет 3 входа и 4 выхода. в соотв. с описанием выще оно будет выглядеть примерно так:

Код:

type
  TBit = 0..1;

procedure TForm1.K531ID14(AIn0, AIn1, AStrob : TBit; var AOut0, AOut1, AOut2, AOut3 : TBit);
var
  AIn : Byte;
begin
  AOut0 := 1;
  AOut1 := 1;
  AOut2 := 1;
  AOut3 := 1;

  If AStrob = 0 Then
    Begin
      AIn := (AIn1 Shl 1) + AIn0;
      Case AIn Of
        0 : AOut0 := 0;
        1 : AOut1 := 0;
        2 : AOut2 := 0;
        3 : AOut3 := 0;
      End;
    End
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  A1, A2, A3, A4 : TBit;
begin
  K531ID14(1,1,0,A1,A2,A3,A4);
  ShowMessage(Format('%d %d %d %d',[A4,A3,A2,A1]))
end;

Написано по простому, что бы было понятно, что делается.
Плюс пример вызова.

За полной программой - wellcome to "Работа".