Como puedo expandir un panel hacia la derecha con un efecto lento?

[NelsonJG]

osea tengo dos buttons, uno es para expandir y el otro es para contraer, te muestro mi codigo que le coloque a ambos button's los cuales me expande el panel y contrae

Boton Contrae

Código Delphi [-]
procedure TfrmSubFamilias.btnContraeClick(Sender: TObject);
begin
if Panel1.Width = 1140 then
 begin
 Panel1.Width := 681;
 btnExpande.Visible := True;
 btnContrae.Visible := False;
 end;
end;

Boton expande

Código Delphi [-]
procedure TfrmSubFamilias.btnExpandeClick(Sender: TObject);
begin
if Panel1.Width =  681then
 begin
 Panel1.Width := 1140;
 btnExpande.Visible := False;
 btnContrae.Visible := True;
 end;
end;

Este es mi panel contraido
contraido.jpg
y este es expandido
expandido.jpg

Controlado por el button, pero me gustaria que cuando expando fuera lento el proceso de expandir con unefecto de suavidad, me explico!