SCAR Code:
{*******************************************************************************
function FindClosestSymbol(var x, y: Integer; Name: string): Boolean;
By: NCDS
Description: Finds closest or furthest symbol defined by 'Name'. Returns true if found.
Closest or furthest defined by 'Closest'. Closest = true, furthest = false.
Returns x and y coord for closest symbol.
*******************************************************************************}
function FindClosestSymbol(var x, y: Integer; Closest: Boolean; Name: string): Boolean;
var
I; integer
Arr: array of TPoint;
begin
Result := FindSymbols(Arr, Name);
if Result then
begin
SortTPAFrom(Arr, Point(MMCx, MMCy));
case Closest of
true: I := Low(Arr);
false: I := High(Arr);
end;
x := Arr[I].x;
y := Arr[I].y;
end;
end;
Would be more useful imo 
Good idea though