这个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;