Anonymous

   1.
      unit Unit2;
   2.
       
   3.
      interface
   4.
       
   5.
      uses
   6.
        Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7.
        Dialogs, StdCtrls;
   8.
       
   9.
      type
  10.
        TForm1 = class(TForm)
  11.
          Edit1: TEdit;
  12.
          Button1: TButton;
  13.
          procedure Button1Click(Sender: TObject);
  14.
        private
  15.
          { Private declarations }
  16.
        public
  17.
          { Public declarations }
  18.
        end;

      var

        Form1: TForm1;
        x : integer;
       
      implementation

      {$R *.dfm}

      procedure TForm1.Create(Sender: TObject);
      begin
        x:= 0;
      end;

      procedure TForm1.Button1Click(Sender: TObject);
      var
      z:integer;

      begin
      x:=x+1 ;
      z:=x mod 5;
      if(z=0) then (edit1.text:='B');
      if(z=1) then (edit1.text:='Bu');
      if(z=2) then (edit1.text:='Bur');
      if(z=3) then (edit1.text:='Bura');
      if(z=4) then (edit1.text:='Burak');
      end;

      end.