这个pos要如何写

这个pos要怎么写
这个pos要怎么写

listbox1里有以下多行字
---------
23222   sdfsd   88992777
23455433   23222   sdfsd
23222   34543   95212777
232345dsds   sdfsd   88232777
------------
按BUTTON1后把Listbox1里每行的8位数字添加到listbox2里去


[解决办法]
var
IntI: Integer;
begin
for IntI:= 0 to ListBox1.Count-1 do
begin
ListBox2.Items.Add( copy( ListBox1.Items.Strings[ IntI ],8,1 ) );
end;
end;