[Cyclone]

Сделал как вы написали. Ячейки не прячутся, но уменьшается их ширина.

может я не туда поставил процедуру или что-то мешает ей работать?

var
Days: array[1..7] of string;
PrevName: String;
num: integer;
procedure SetVisible(RouteName: string);
var
height : double;
begin
if (RouteName > '') then
begin
height := 0;
end
else
begin
height := 20;
end;
MasterData2.height :=height;
Memo1.height :=height;
Memo3.height :=height;
Memo12.height :=height;
Memo14.height :=height;
Memo18.height :=height;
Memo20.height :=height;
Memo25.height :=height;
Memo26.height :=height;
Memo29.height :=height;
Memo30.height :=height;
end;

procedure SetHeightMemo(LineNum: integer);
begin
if LineNum > 1 then
begin
Memo25.Frame.Typ := ftLeft + ftRight;
Memo25.Text := '';
Memo12.Frame.Typ := ftLeft + ftRight;
Memo12.Text := '';
end
else
begin
Memo25.Frame.Typ := ftLeft + ftRight + ftTop;
Memo12.Frame.Typ := ftLeft + ftRight + ftTop;
end;
end;
function GetNameKT(S_Name: String): String;
begin
if PrevName = S_Name then
begin
Memo3.Frame.Typ := ftLeft + ftRight;
result := '';
end
else
begin
Memo3.Frame.Typ := ftLeft + ftRight + ftTop;
PrevName := S_Name;
result := S_Name;
end;
end;
function GetNum(): String;
begin
Inc(num);
result := IntToStr(num);
end;


begin
Days[1] := 'Воскресенье';
Days[2] := 'Понедельник';
Days[3] := 'Вторник';
Days[4] := 'Среда';
Days[5] := 'Четверг';
Days[6] := 'Пятница';
Days[7] := 'Суббота';
end.