Как можно сократить код

[jocry]

Добрый день. Не могли бы вы подсказать, как можно сократить ниже приведенный код. Можно ли использовать какой-нибудь универсальный тип?

if (sender as TObject).ClassName = 'TsEdit' then
  begin
 sPanel1.Top:=(sender as TEdit).Top-5;
 sPanel1.Height:=(sender as TsEdit).Height+10;
 otes:=(sender as TEdit).Tag;
  end;

  if (sender as TObject).ClassName = 'TsComboEdit' then
  begin
 sPanel1.Top:=(sender as TsComboEdit).Top-5;
 sPanel1.Height:=(sender as TsComboEdit).Height+10;
 otes:=(sender as TsComboEdit).Tag;
  end;

  if (sender as TObject).ClassName = 'TsDateEdit' then
  begin
 sPanel1.Top:=(sender as TsDateEdit).Top-5;
 sPanel1.Height:=(sender as TsDateEdit).Height+10;
 otes:=(sender as TsDateEdit).Tag;
  end;

 if (sender as TObject).ClassName = 'TsMemo' then
  begin
 sPanel1.Top:=(sender as TsMemo).Top-5;
 sPanel1.Height:=(sender as TsMemo).Height+10;
 otes:=(sender as TsMemo).Tag;
  end;

[_Engine_]

if Sender is TControl then
  with Sender as TControl do
  begin
     Top := Top -5;
     Height := Height + 10;
     otes := Tag; 
  end;

[jocry]

Спасибо большое за пример, только код пришлось немного поправить и всё заработало.

  sPanel1.Top:=(sender as TControl).Top-5;
  sPanel1.Height:=(sender as TControl).Height+10;
  otes:=(sender as TControl).Tag;