[Freeman]

Вроде бы не очень сложно:

Код:

procedure TSomeClass.Setabc(const Value: Integer);
var
  PropList: PPropList;
  I: Integer;
begin
  Fabc := Value;
  for I := 0 to GetPropList(Self, PropList) - 1 do
    if @PropList[i].SetProc = @SetAbc then
      ShowMessage(PropList[i].Name); // PropList[i] -- и есть его PropInfo
end;

Не проверял, лень.