AVS>procedure TForm1.Action1Update(Sender: TObject);
AVS>begin
AVS>  with Sender as TAction do
AVS>  begin 
AVS>    Enabled:=WaitForSingleObject(Modem.Handle, 0) <> WAIT_OBJECT_0;
AVS>  end   

AVS>end;


AVS>