procedure Tpitch.detect_sipe;
var
     dist : real;
     bi   : integer;
begin
     for bi := 0 to blocks.count-1 do begin   //block:Tlist
       with Tblock(blocks.items[bi]) do begin //Tblock:Tobject
         dist := distance(pt[0],pt[length(pt)-1]);
         if dist <= 10e-3 then
          sipeis := false
         else
          sipeis := true
       end;
     end;
end;

앞부분은 생략해서 해석이 가능하실지 모르겠지만
Tobject.pt[]에 좌표위치를 받아서 거리를 구해서 조건문을 쓴건데요
with Tblock(block.items[bi]) do begin 이부분좀 해석부탁드립니다.
distance는 함수같은데 어떻게 어떤 클래스에 속한 함수이며, 어떻게 사용하고 어떤 값을 반환하는지요
빠른 답변 부탁드립니다.
참고로
result:=Tobject.create
block.add(result)