@Port=...[/code]
в hiSMTP.pas добавь процедуру
procedure _work_doPort(var _Data:TData; Index:word);[/code]
procedure THISMTP._work_doPort;
begin
  _prop_Port := ToInteger(_Data);
end;