procedure TForm1.Button1Click(Sender: TObject);

var

  pI,pLen:integer;

begin

    pLen:=100;

    for pI:=1 to pLen do begin

        Edit1.text :=StringOfChar('>',pI)+stringOfChar(' ',pLen-pI);

        sleep(100);

        form1.Update;

    end;

    showmessage('Run Finish!');