Приведение типов с одинаковыми свойствами

[praeeo]

Приветствую!
Что-то не возьму в толк, как сделать "красиво":
Есть два типа объектов с одинаковыми свойствами, объекты заносятся в TObjectList.
Вопрос - как мне сделать приведение типов, не дублируя код со свойствами и не используя явное приведение? Вот пример:

procedure TSettForm.SetProperty (Prop, Str: string);
var
bufbtnlist: TObjectList;
begin
if (bufbtnlist.Items[iindex-1] as TObject).ClassName = 'TBtnProp' then
with (bufbtnlist.Items[iindex-1] as TBtnProp) do
begin
  if Prop = 'Hint' then Hint:= Str;
  if Prop = 'LeftURL' then LeftURL:= Str;
  if Prop = 'RightURL' then RightURL:= Str;
  if Prop = 'LeftHotKeys' then LeftHotKeys:= Str;
  if Prop = 'RightHotKeys' then RightHotKeys:= Str;
end;
if (bufbtnlist.Items[iindex-1] as TObject).ClassName = 'TMySpeedBtn' then
with (bufbtnlist.Items[iindex-1] as TMySpeedBtn) do
begin
  if Prop = 'Hint' then Hint:= Str;
  if Prop = 'LeftURL' then LeftURL:= Str;
  if Prop = 'RightURL' then RightURL:= Str;
  if Prop = 'LeftHotKeys' then LeftHotKeys:= Str;
  if Prop = 'RightHotKeys' then RightHotKeys:= Str;
end;
end;

[Аватар]

if bufbtnlist.Items[iindex-1] is TBtnProp then
with TBtnProp(bufbtnlist.Items[iindex-1]) do

Это мне кажется самый короткий код
а зачем Fpfxtv "if Prop = 'Hint' then"? Что возможен вариант отсутствия свойства в объекте TBtnProp? Если TBtnProp и TMySpeedBtn имеют общего предка и обновляемые свойства в нем фигурирует, то возможен вариант обращения с типом предка

[praeeo]

Ну да, хорошее указание) По поводу приведения типов - на другом форуме посоветовали наследоваться от общего предка. Вероятно, так и придется делать

[praeeo]

Сообщение от Аватар

if bufbtnlist.Items[iindex-1] is TBtnProp then
with TBtnProp(bufbtnlist.Items[iindex-1]) do

Это мне кажется самый короткий код
а зачем Fpfxtv "if Prop = 'Hint' then"? Что возможен вариант отсутствия свойства в объекте TBtnProp? Если TBtnProp и TMySpeedBtn имеют общего предка и обновляемые свойства в нем фигурирует, то возможен вариант обращения с типом предка

TBtnProp унаследован от TObject, в нем только 5 свойств (Hint,LeftURL,RightURL,LeftHotKeys, RightHotKeys). А TMySpeedBtn - от TSpeedButton. Просто добавлены те же свойства. Можно бы было TBtnProp наследовать и от TMySpeedBtn, но зачем мне лишние свойства и методы? Хотя, возможно, так и придется сделать.