Obtener tres primeras partes de una ip

[DarkByte]

¡Buenas!, hace tiempo me acerqué por aquí con una pregunta similar, cómo obtener el último trozo (de 192.168.1.25, obtener 25) ahora he creado esta función, pero no me funciona, pues me devuelve lo que sería 192. de 192.168.1.25 en vez de, como quiero, 192.168.1.

Código Delphi [-]
  function TresTrozos(Ip:string):string;
  var
    posicion,i:integer;
    direccion:string;
  begin
    direccion := ip;
    for i:=1 to 3 do begin
      posicion := Pos('.', Direccion);
      If I = 3 Then
      begin
        Delete(Direccion, posicion, Length(Direccion));
        Result := Direccion;
      end;
    end;
  end;

Gracias simplemente, por el tíempo empleado en leer esto.