Presentar numeros en una venta flotante

[wcbs]

Hola ecfisa
Disculpa la tardanza ya que estuve que salir, acabo de probar las dos forma que me pusiste pero no me trabajan no se que estoy haciendo mal, pero te agrego por acá lo que e estado probando, pero de esta forma me lee el archivo pero debo presionar el botón leer para que me lea el archivo, pero lo que busco es de como hacer que me lea el archivo constantemente sin presionar el botón leer, habrá
alguna forma de hacer que sea una ventanita que se quede permanente en la pantalla que se mantenga leyendo el archivo , aca te pongo lo que e echo...

Código Delphi [-]
 unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Datos: TextFile;
  TS: TStrings;
   Linea: String;
   NumLinea: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(Datos,'C:\DBA\contar.txt');
   Reset(Datos);
   NumLinea := 0;
   REPEAT

        TS:= TStringList.Create;
        Readln(Datos, Linea);
        Inc(NumLinea);
        UNTIL NumLinea = 1;
        TS.Clear;
        ExtractStrings(['|'], [], PChar(Linea), TS);
        Edit1.Text:= TS.Text;

       CloseFile(Datos);

   end;
    end.

mis conocimientos de programación no son muy amplio y este lo había echo también con un poco de ayuda,