Coments

procedure TForm5.CornerButton1Click(Sender: TObject);
var error, port:integer;
begin
Val(Edit1.Text, port, error);//пытаемся прочитать из поля порт и сохроняем error code
IdUDPServer1.DefaultPort:=port;//Записываем порт, костыль, но без этого не работает.
end;//Выходим, забив на ошибки.