请高手帮小弟我把BCB的小小东西翻译成DELPHI 多谢

请高手帮我把BCB的小小东西翻译成DELPHI 谢谢
TPanel   *pp   =   dynamic_cast <TPanel   *> (Sender);
    TLabel   *ll   =   dynamic_cast <TLabel   *> (Sender);

  if   (!pp   &&   ll)
        pp   =   dynamic_cast <TPanel   *> (ll-> Parent);


    if   (pp)
        ShowMessage(pp-> Caption);

[解决办法]
//void __fastcall TForm1::lwv(TObject *Sender)
procedure TForm1.lwv(Sender:TObject);
//{TPanel *pp = dynamic_cast <TPanel *> (Sender);
// TLabel *ll = dynamic_cast <TLabel *> (Sender);

var
pp:TPanel;
ll:TLabel;
begin
pp:=nil;
ll:=nil;

if Sender is TPanel then
pp:=Sender as TPanel;

if Sender is TLabel then
ll:=Sender as TLabel;

//if (!pp && ll)
if(Not Assigned(pp)) and Assigned(ll) then
//pp = dynamic_cast <TPanel *> (ll-> Parent);
if Assigned(ll.Parent) then
if ll.Parent is TPanel then
pp:=ll.Parent as TPanel;


//if (pp)
if Assigned(pp) then
//ShowMessage(pp-> Caption);
ShowMessage(pp.Caption);


// }
end;