[[José Luis Garcí]]

Para el botón de muestras este es el código

Código Delphi [-]
procedure TFXPAF.SBInsertarMuestraClick(Sender: TObject);
// ------------------------------------------------------------------------------
// **************************************************[ Insertar Muestra ]*******
// ------------------------------------------------------------------------------
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