Dann habe ich Dich doch nicht richtig verstanden - dachte, Du regelst das per Drag'n'Resize, aber egal
Mit Splitter geht's natürlich ganz anders und viel einfacher:
Delphi-Quellcode:
procedure TForm1.Splitter1CanResize(Sender: TObject; var NewSize: Integer;
var Accept: Boolean);
begin
if NewSize > Form1.Width div 4 then
Accept := False
else
Accept := True;
end;