Fórum Letreiro - Atualizar #300819

procedure TfmMain.timerMsgTimer(Sender: TObject);
begin
  tempoMSG := tempoMSG + 1;
  mMsg := dm.tbParamMsgGeral.value + ´               ´+dm.tbParamMsgGeral.value+ ´               ´;
  if length(mMsg) < 80 then
     mMsg := mMSG + stringofchar(´ ´,100-length(mMsg));
  if tempoMSG < length(mMsg) then
  begin
    mMsg := copy(mMsg,tempoMSG,500);
  end
  else
    tempoMSG := 0;

  if length(mMSG) < 80 then
     mMSG := mMSG + copy(dm.tbParamMsgGeral.value,1,tempoMSG);

  with fmMain.lbMsg do
  begin
    if dm.tbParamMsgPrin.value = ´S´ then
    begin
      Font.Color := StringtoColor(dm.tbParamMsgCor.value);
      width := 449;
      caption := mMsg;
    end
    else
      caption := ´´;
  end;

end;

    { Private declarations }
    mMsg: string;
    tempoMSG: integer;