......
x=60;//до цикла
......
y=240+180*sin(x*Pi/(32));
x+=0.1;
if (x==580) return 0;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  rStr, sourceSTR: string;
  pos: integer;

implementation

{$R *.dfm}

function runstr():boolean;
begin
  rStr:=copy(sourceStr,pos,Length(sourceSTR)-pos);
  rStr:=rStr+' '+copy(sourceStr,1,pos);
  Form1.Label1.Caption:=rStr;
  inc(pos);
  if pos>= Length(sourceSTR) then pos:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  sourceSTR:='Это бегущая строка! ';
  pos:=1;
  Form1.BorderStyle:=bsNone;
  Form1.Top:=0;
  Form1.Left:=0;
  Form1.Width:=Screen.Width;
  Form1.Height:=Screen.Height;
  Form1.FormStyle:=fsStayOnTop;
  Label1.Width:=Screen.Width;
  Label1.Top:=(Screen.Height div 2) - (Label1.Height div 2);
  Label1.Left:=(Screen.Width div 2) - (Label1.Width div 2);
  Form1.Color:=clBlack;
  Label1.Color:=clBlack;
  Label1.Font.Color:=clWhite;
  Label1.Font.Size:=72;
  Label1.Font.Name:='Arial';
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then Close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 runstr();
end;

end.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Перечислите все слова данного предложения, которые состоят из тех же букв, что и первое слово предложения.
  char sPredlogenie[100];
  char sBukvy[33];                               //зависит от языка
  char sCurSlovo[20];                            //текущее слово
  int nSlovoLen = 0;
  int nBukvyCol = 0;
  int nWords = 0;
  int i = 0;
  int j = 0;
  int fl = 0;
  char *buf  = new char[ Memo1->Lines->Strings[0].Length() + 1 ];

  strcpy( buf, Memo1->Lines->Strings[0].c_str() );

  //Очистка предложения
  strcpy(sPredlogenie, "");
  //Рассматриваем первое предложение
  strcpy( sPredlogenie, buf);

  //Берем первое слово
  while( sPredlogenie[i] != ' ')
  {
    fl = 0;
    //Проверка, что символ раньше не встречался
    for( j = 0; j < nBukvyCol; j++)
      if( sPredlogenie[i] == sBukvy[j] )
        fl = 1;

    //Добавить в набор букв
    if( fl == 0 )
    {
      sBukvy[nBukvyCol] = sPredlogenie[i];
      nBukvyCol++;
    }
    i++;
  }

  nWords = 0;                                    //Число слов

  while(sPredlogenie[i] != '\0')                 //Пока не конец предложения
  {
    strcpy( sCurSlovo, "");
    nSlovoLen = 0;
    //Пропускаем пробелы
    while( sPredlogenie[i] == ' ')
      i++;

    //Получаем теущее слово
    while( sPredlogenie[i] != ' ' && sPredlogenie[i] != '\0')
    {
      sCurSlovo[nSlovoLen] = sPredlogenie[i];
      nSlovoLen++;
      i++;
    }

    if(nSlovoLen > 0)
    {
      sCurSlovo[nSlovoLen] = '\0';               //уловка для более красивого вывода на экран
                                                 //если закомментировать, все равно будет работать правильно
      nWords++;
    }

    fl = 0;
    int k = 0;                                   //доп.счетчик
    for(k = 0; k < nSlovoLen; k++)
    {
      for( j = 0; j < nBukvyCol; j++)
        if( sCurSlovo[k] == sBukvy[j] )
        {
          fl = 1;
          break;  //из for по j
        }
      //Если весь массив букв пройден, совпадений нет
      if( j == nBukvyCol )
      {
        fl = 0;
        break;  //из for по k
      }
    }

    if(fl == 1)
      ShowMessage("Слово "+IntToStr(nWords)+" состоит из букв первого слова:\n\n" + AnsiString(sCurSlovo));
    else
      ShowMessage("Слово "+IntToStr(nWords)+" состоит НЕ только из букв первого слова:\n\n" + AnsiString(sCurSlovo));

  } //while