TBlockSocket.ResolvePort
TBlockSocket

function ResolvePort(Port: string): Word;

Unit
blcksock

Description
Try resolve symbolic port name to port number.