Memoda limiti gostermek Kod: Kod: procedure TMain.TimerTimer(Sender: TObject); var I: Integer; begin I := 125 - Length(Trim(Message.Text)); Max.Text := IntToStr(I); end;