问怎么能使找到的ip写道idtcpserver的bindings中(50分)

我已经把server端的ip写道了p这个变量中,怎么才能写道idtcpserver中呀,也就是怎么让
idtcpserver知道主机地址呀,好和客户端联系.

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
IdTcpServer1.Bindings.Add;
IdTCPServer1.Bindings.Items[0].IP:=trim(edit1.Text);
IdTCPServer1.Bindings.Items[0].Port:=1053;
IdTCPServer1.Active:=true;
i:=0;
messagedlg('设置已改变！',mtinformation,[mbok],0);
end;