#117 DoDirect function causes exception

[Barry Andrews]

The doDirect function in AdPager.pas does not work and raises exception if com port is not open

suggested change

procedure TApdTAPPager.DoDirect;
var
Res: Integer;
begin
inherited DoDirect;
DoOpenPort;

DoStartCall;

InitLoginTriggers;
StartPingTimer;

FSent := False;
FCancelled := False;
FAborted := False;

repeat
    Res := SafeYield;
until FAborted or FCancelled or FSent or \(Res = wm\_Quit\);

if FCancelled or FAborted then
    TerminatePage;

if not FSent then
DoFailedToSend
else
WriteToEventLog(FormatLogEntry(FPageMode, PagerID, PhoneNumber, '', pcDone));
end;