Реализовать в окне бегущую строку

#include <iostream>
#include <string>
#include <windows.h>
 
using namespace std;
 
 
int main()
{
    string str;
    getline(cin, str);
 
    int k = 0;
    while (true)
    {
        for (int j = 0; j < str.length(); j++)
        {
            for (int i = k++; i < str.length(); i++)
            {
                cout << str[i];
            }
            Sleep(100);
 
            system("cls");
        }
        system("cls");
        k = 0;
    }
    cout << endl;
    cin.get();
    return 0;
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 if(Label1->Left+Label1->Caption.Length() <= ClientWidth)
     Label1->Left++;
  else
      Label1->Left = 10;
}
//---------------------------------------------------------------------------