Quick way to create a panel message

//
// Miquel Taule
// www.mitsoftware.com
//  
// Use this code to create and delete a panel with a message
//
// BOC - Begin of code  :)

procedure Createpanel(msg : string);
begin
// This function uses ExtCtrls unit
if form1.findcomponent('mypanel') = nil then else form1.findcomponent('mypanel').free;
with tpanel.create(form1) do
begin
  name :='mypanel';
  caption:=msg;
  height:=100;
  width:=300;
  top:=(form1.height div 2)-(height div 2);
  left:=(form1.width div 2)-(width div 2);
  parent:=form1; // Fromname
end;
end;

procedure DeletePanel;
begin
if form1.findcomponent('mypanel') = nil then else form1.findcomponent('mypanel').free;
end;

//>>>>>>>>>>>>>>>>>>>>>>>> test the code
// Create 2 buttons to test the code
//
// procedure TForm1.Button1Click(Sender: TObject);
// begin
//  Createpanel('Wait...');
// end;

// procedure TForm1.Button2Click(Sender: TObject);
// begin
//  DeletePanel;
// end;


// EOC - End of code  :)
//
// Miquel Taule - www.mitsoftware.com