procedure TForm1.FormCreate(Sender:TObject);
begin
s2.Tag:=s2.Left;
s3.Tag:=s3.Left;
s4.Tag:=s4.Left;
end;
procedure TForm1.FormShow(Sendet:TObject);
begin
if s2.Visible then
begin
s2.Left:=s2.Tag;
s3.Left:=s3.Tag;
s4.Left:=s4.Tag;
end
else
begin
s3.Left:=s2.Tag;
s4.Left:=s3.Tag;
end;
end;