FTransactionComplete:= false;
FRoutingTarget:= RoutingTable.GetRouteInfo(Envelope.RelayHost);
Response:= TRFCReply.Create;
+ TCP:= nil;
FillChar(SMTPExtensions, SizeOf(TSMTPExtensions), #0);
end;
begin
FRoutingTarget.Free;
Response.Free;
+ if TCP <> nil then TCP.Free;
inherited Destroy;
end;
Inc(i);
end;
Result:= TCP.Connected;
+ if not TCP.Connected then FreeAndNil(TCP);
end
else Result:= false;
MXList.Free;
begin
TCP.SendCommand(SMTP_C_QUIT);
{TCP.ReadResponse(Response);}
- TCP.Free;
+ FreeAndNil(TCP);
end;