procedure TForm1.Button1Click(Sender: TObject);
var
hd1,hd2:THandle;
i:integer;
yourCanvas:TCanvas;
begin
hd1:=YourCanvas.Handle ;
for i:=0 to form1.ComponentCount -1 do
begin
if TCanvas(form1.Components).Handle =hd1 then showMessage(
'the Canvas is '+ form1.Components.Name );
end;
end;
