Para el botón de muestras este es el código
Código Delphi
[-]procedure TFXPAF.SBInsertarMuestraClick(Sender: TObject);
begin
if CambiarEstado=0 then FEntrMuestra.Show;
end;
Esta la imagen sin extender y extendido
y aquí como siempre el código
https://gist.github.com/anonymous/6061538