unit IAXCall;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, IAX;

type
  TfrmCall = class(TForm)
    GB: TGroupBox;
    lblhelp: TLabel;
    edcalladdr: TEdit;
    bCall: TBitBtn;
    bCancel: TBitBtn;
    procedure bCallClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    IAX: TIAX;
  end;

var
  frmCall: TfrmCall;

implementation

{$R *.DFM}

procedure TfrmCall.bCallClick(Sender: TObject);
begin
  IAX.DoCall(edcalladdr.Text);
end;

procedure TfrmCall.FormDestroy(Sender: TObject);
begin
  frmCall:=nil;
end;

end.