[__cadetill]

Pues hecha, lo que se dice hecha, no la tengo, pero tampoco lo veo demasiado difícil (a priori)

Básicamente seria recorrer con un bucle el string que contiene la IP

respuesta := true;
while i <= length(StrIP) do

e ir almacenando el valor en otro hasta encontrar los TRES puntos

if StrIP[i] <> '.' then  // no es '.'
  str := str + StrIP[i]
else  // es punto -> comprobamos número
begin
  if TryStrToInt(str, myInt) then
  begin
    if not (myInt in [0..255]) then 
    begin
       ShowMessage('IP incorrecta');
       Respuesta := false;
       Break;
    end;
  end
  else
  begin
     ShowMessage('IP incorrecta');
     Respuesta := false;
     Break;
  end;
end;

y verificar fuera del bucle la última tupla de la misma manera y verificar el estado de la variable Respuesta

Bueno, espero que la idea te de pistas por donde ir