TPointを線形検索するような場合 >>724　を使って

function FindAPoint(const s:TPoint;const dt:array of TPoint; out pos:Integer );boolean;
int i:Integer;
begin
　Result:=false;
for i:=0 to High(dt) do begin
　if ByteComp(s,dt[i], sizeof(s)) then begin Result:=true; pos:=i;exit;end;
end;
end;

ここで、どの型かは　関数名にしか出ていないから、内容はそのままコピペ出来る
だから、動的配列をそのまま使う方が普通は楽だと思うんだけど？