[__marcsc]

Un poco más corto, de nuevo con la función LastDelimiter:

Código Delphi [-]
function TresTrozos(IP: String): String;
begin
  Result:= Copy(IP,1,LastDelimiter('.',IP)-1));
end;

Saludos!