请教，关于文本内容提取！

文本内容：

STA004588765510　表示通配　000044443
请输入通配STA004333365510 通配件输入　01114467
配号通配STA004333365510 配件 66657777

请问我现在用Text以行的方式读入以上文本内容，但是我怎样提取STA***********及通配后的８位数字呢？

我现在已经实现了提取STA***********的代码了，但是具体怎样提取后面的8位数字，还请各位指教。
注：代码的长度都是固定的，STA*****带数字是１５位，后面的是８位。

我的提取STA*******的方法如下：
var
TextFileVar:TextFile;
T,S:integer;
i,Z:string;
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.Clear;
AssignFile(TextFileVar,OpenDialog1.FileName);
Reset(TextFileVar);
try
While Not Eof(TextFileVar) do
begin
Readln(TextFileVar,i);
T:=pos('S',i);
if T>0 then
begin
for S:=T to T+15 do
begin
Z:=Z+i[S];
end;
Memo1.Lines.Add(Z);
Z:='';
end;
end;
finally
CloseFile(TextFileVar);
end;
end;
end;

[此贴子已经被作者于2007-3-15 16:54:20编辑过]