procedure TForm6.Panel1Resize(Sender: TObject);
begin try
exp1.Height:=Panel1.Height-2;
exp1.Width:=Panel1.Width-2;
except end;End;