procedure TForm1.FormResize(Sender: TObject);
begin
Panel1.Update;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Form1.Width:=Form1.Width+160;
end;