Tutorial Tulisan Berjalan di Delphi 7

Assalamualaikum...
Saya kembali lagi menulis di blog saya ini, saya ingin berbagi ilmu dengan kalian maupun sedikit namun semoga bermanfaat yah... :)

Buatlah tampilan formnya seperti ini :

dan ini full code nya :

unit Utama; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TFormUtama = class(TForm)

    LabelNama: TLabel;

    EditNama: TEdit;

    LabelHasil: TLabel;

    ButtonAksi: TButton;

    ButtonHapus: TButton;

    ButtonGabung: TButton;

    ButtonClose: TButton;

    ButtonJalan: TButton;

    procedure ButtonAksiClick(Sender: TObject);

    procedure ButtonHapusClick(Sender: TObject);

    procedure ButtonGabungClick(Sender: TObject);

    procedure ButtonCloseClick(Sender: TObject);

    procedure ButtonJalanClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormUtama: TFormUtama;

implementation

{$R *.dfm}

//mulai dari sini yang boleh diotak-atik buat nambah code, kalau udah profesional boleh dari awal code diubah

procedure TFormUtama.ButtonAksiClick(Sender: TObject);

begin

LabelHasil.Caption := 'Novia Mardiana';

end;

procedure TFormUtama.ButtonHapusClick(Sender: TObject);

begin

LabelHasil.Caption := '';

end;

procedure TFormUtama.ButtonGabungClick(Sender: TObject);

begin

LabelHasil.Caption := 'Halooo '+EditNama.Text;

end;

procedure TFormUtama.ButtonCloseClick(Sender: TObject);

begin

close;

end;

procedure TFormUtama.ButtonJalanClick(Sender: TObject);

//Deklarasi Variabel Local

Var

  i : integer;

begin

  //Mengisi Caption LabelHasil dengan Text dari EditNama;

  LabelHasil.Caption := EditNama.Text;

  //meletakkan posisi kiri LabelHasil

  LabelHasil.Left := 16;

  //loop dari posisi awal ke posisi 750

  for i:= 16 to 750 do

  begin

    //posisi kiri LabelHasil diubah ke posisi i

    LabelHasil.Left := i;

    //berhenti sejenak agar penonton dapat melihat textnya berjalan

    Sleep(50);

    //repaint agar kondisi saat itu ditampilkan

    LabelHasil.Repaint;

  end;

end;

end.