如何将服务器名称与字符串中的端口号分开？

function SplitAtChar(const Str: string; const Chr: char;
  out Part1,Part2: string): boolean;
var
  ChrPos: integer;
begin
  result := true;
  ChrPos := Pos(Chr,Str);
  if ChrPos = 0 then
    Exit(false);
  Part1 := Copy(Str,1,ChrPos - 1);
  Part2 := Copy(Str,ChrPos + 1,MaxInt);
end;

样品用法：

var
  p1,p2: string;
begin
  if SplitAtChar('smtp.gmail.com:587',':',p1,p2) then
  begin
    ShowMessage(p1);
    ShowMessage(p2);
  end;