procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
MrimS: string;
begin
TCPClient.Active:=True;
if TCPClient.Connected then
MrimS:=TCPClient.Receiveln(#$A); {Получили адрес и порт}
TCPClient.Disconnect;
if MrimS <> '' then
for i:=1 to Length(MrimS) do
if MrimS[i] = ':' then
begin
MailClient.Host:=Copy(MrimS, 0, i-1);
MailClient.Port:=StrToInt(Copy(MrimS, i+1, Length(MrimS)-i));
form1.StatusBar1.Panels[0].Text:='Host '+ Mailclient.host+' Port '+IntToStr(MailClient.Port);
break;
end;

if MailClient.HostInit then begin
MailClient.Connect; {Соеденяемься}
end
else
MailClient.RequestHost;
end;

  procedure TForm1.MailClientConnect(Sender: TObject);
  begin
  MailClient.Hello;
  end;

  procedure TForm1.MailClientHello(Sender: TObject);
  begin
  MailClient.Authorize;
  end;

  procedure TForm1.MailClientRequestHost(Sender: TObject);
  begin
  mailclient.Status:=OnLine;
  MailClient.Connect;
  end;

И не забудьте обязательно прописать эту строчку:
  mailclient.Status:=OnLine;