MENAMPILKAN ISI NOTPED PADA listbox

unit Unit10;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;
type
  TForm10 = class(TForm)
    Panel1: TPanel;
    Shape1: TShape;
    Timer1: TTimer;
    ListBox1: TListBox;
    Keluar: TBitBtn;
    Shape2: TShape;
    Timer2: TTimer;
    BitBtn1: TBitBtn;
    procedure KeluarClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form10: TForm10;
  atas:boolean;
implementation
uses Unit9;
{$R *.dfm}
procedure TForm10.FormPaint(Sender: TObject);
begin
//MERUBAH WARNA FOFM SECARA RANDOM SEBANYAK 255 COLOR
Brush.Color:= RGB(random(255), random(255), random(255));
end;
procedure TForm10.KeluarClick(Sender: TObject);
begin
close;
end;
procedure TForm10.Timer1Timer(Sender: TObject);
begin
//shape1.Top :=shape1.Top -1;
// if shape1.Top  = 1-shape1.Width then
 //   shape1.TOP:=PANEL1.Width+1;
if atas then
begin
shape1.top:=shape1.top+15;
 if shape1.Top+shape1.Width >=panel1.ClientWidth then
  atas:=false;
 end
else
begin
shape1.top:=shape1.top-20;
 if shape1.top<=0 then atas :=true;
end;
end;
procedure TForm10.Timer2Timer(Sender: TObject);
begin
 shape2.Top :=shape2.Top -10;
 if shape2.Top  = 1-shape1.Width then
    shape2.TOP:=PANEL1.Width+10;
end;
procedure TForm10.BitBtn1Click(Sender: TObject);
begin
FORM9.Show;
end;
//MEMANGGIL NOTPED PADA DRIV D
procedure TForm10.FormActivate(Sender: TObject);
const
 txt = 'D:\Topan_Setiawan\Help.TXT';
begin
 listbox1.Items.LoadFromFile(txt);
 animatewindow(handle,1000,AW_CENTER);
end;
end.