Problemas con el componente Scheme

[marcoszorrilla]

Sin conocer el componente yo lo dejaría así:

procedure TepSchemeForm.DoMin(Sender: TObject);
begin
if (Owner is TForm) then
if (Owner as TForm).WindowState <> wsMinimized then
(Owner as TForm).WindowState := wsMinimized
else
(Owner as TForm).WindowState := wsNormal;
end;



procedure TepSchemeForm.DoMax(Sender: TObject);
begin
if (Owner is TForm) then
if (Owner as TForm).WindowState <> wsMaximized then
(Owner as TForm).WindowState := wsMaximized
else
(Owner as TForm).WindowState := wsNormal;
end;

A ver si hay suerte.

Un Saludo.