[yusnerqui]

Este tambien funciona:

Código Delphi [-]
function TForm1.Trozo(IP: string): String;
var
i : Byte;
Aux : String;
begin
for i := length(IP) downto 1 do
Aux := Aux + IP[i];
i := pos('.', Aux);
Result := copy(IP,1,length(IP)-i);
end;