ClientHeight verkleinern nicht möglich?

[Aenogym]

hi,

ich habe ein problem. mein timer vergrößert mal die clientheight und mal verkleinert er sie. zumindest soll er das. vergrößern klappt auch nur wenn er sie verkleinern soll, passiert einfach nix. mein gesetzter breakpoint wird aufgerufen aber der debug inspector verrät, dass sich die clientheight nach aufrufen der codezeile nicht geändert hat.

hier mein code (in tempheight sieht die höhe vor dem schließen, damit der timer beim öffnen and er stelle anhält):

Delphi-Quellcode:

procedure Tfrm_instant_msg.Timer1Timer(Sender: TObject;
  LagCount: Integer);
begin
  if close = false then
  begin
    //öffnen
    if self.clientheight = tempheight then
    begin
      timer1.Enabled := false;
    end
    else
      self.ClientHeight := self.clientheight + 1; //funktioniert problemlos
  end;

  if close = true then
  begin
    //schließen
    if self.clientheight = 0 then
    begin
      timer1.Enabled := false;
    end
    else
      self.ClientHeight := self.clientheight - 1;  //diese zeile wird ausgeführt, jedoch ändert sich die höhe nicht
  end;
end;

wisst ihr, was ich falsch mache? kann ich es sonst evtl. anders lösen?

danke,
Aenogym