Размещение компонента по середине формы которая развернута во весь экран

sPanel4.Left:=(Form2.Width div 2 - sPanel4.Width div 2) ;

sPanel1.Left:=ClientWidth div 2-sPanel1.Width div 2;
sPanel1.Top:=ClientHeight div 2-sPanel1.Height div 2;

Form2.Left:=(Screen.WorkAreaWidth-Form2.Width) div 2;
Form2.Top:=(Screen.WorkAreaHeight-Form2.Height) div 2;
sPanel4.Left:=ClientWidth div 2 -sPanel4.Width div 2; // мне надо чтобы было по середине формы

sPanel4.Left:=ClientWidth div 2 -sPanel4.Width div 2; // мне надо чтобы было по середине формы

procedure TForm2.sCheckBox6Click(Sender: TObject);
begin
if sCheckBox6.Checked=True then
ADOQuery1.Fields[7].Visible:=True  and
ADOQuery1.Fields[8].Visible:=True  and
ADOQuery1.Fields[9].Visible:=True // выделяется красным перед else
else
begin
if sCheckBox6.Checked=False then
ADOQuery1.Fields[7].Visible:=False  and
ADOQuery1.Fields[8].Visible:=False  and
ADOQuery1.Fields[9].Visible:=False // выделяется красным перед end
end;
end;

if sCheckBox6.Checked=True then
 begin
  ADOQuery1.Fields[7].Visible:=True;
  ADOQuery1.Fields[8].Visible:=True;
  ADOQuery1.Fields[9].Visible:=True
 end
else
 begin
   ADOQuery1.Fields[7].Visible:=False;
   ADOQuery1.Fields[8].Visible:=False;
   ADOQuery1.Fields[9].Visible:=False
  end;
end;

ADOQuery1.Fields[7].Visible:=sCheckBox6.Checked;
ADOQuery1.Fields[8].Visible:=sCheckBox6.Checked;
ADOQuery1.Fields[9].Visible:=sCheckBox6.Checked