if TRegEx.IsMatch(EditIP.Text,
    '^[0-9]{1,3}\.{0-9}{1,3}\.{0-9}{1,3}\.{0-9}{1,3}$') then
    ShowMessage('IPv4 address is valid.')
  else
    ShowMessage('IPv4 address is not valid.');

  if TRegEx.IsMatch(EditEMailAddress.Text,
    '^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$', [roIgnoreCase]) then
    ShowMessage('Email address is valid.')
  else
    ShowMessage('Email address is not valid.');