还是老师们帮我看看如何写这段代码!(5分)

[5] Wed 24Mar04 11:35:43 - (000011) IP-Name: LOCALHOST
[4] Wed 24Mar04 11:35:49 - (000011) Receiving file d:/logo4.txt
[4] Wed 24Mar04 11:35:49 - (000011) Received file d:/logo4.txt successfully

以上三行存在一个文本文件中,我想把
IP-Name:
Receiving file:
Received file:
后面的内容提取出来,我用下面的方法提取第一行,可是结果不对,不知道为什么
AssignFile(LogoFile,epath.Text+'/logo.txt');
Reset(LogoFile);
listbox1.Items.Clear;
Try
While not Eof(LogoFile) do
begin
ReadLn(LogoFile,s);
si:=pos('IP-Name',s);
s:=copy(s,si+Length('IP-Name')-1,30);
listbox1.Items.Add(S);
end;
finally
CloseFile(LogoFile);
end;

si:=pos('IP-Name',s);
if si>0 then
^^^^^^^^^^^^^^^
s:=copy(s,si+Length('IP-Name')-1,30);

var
logofile:filetext;
s:string;
si,ii:integer;
begin
AssignFile(LogoFile,epath.Text+'/logo.txt');
Reset(LogoFile);
listbox1.Items.Clear;
Try
While not Eof(LogoFile) do
begin
ReadLn(LogoFile,s);
si:=pos('(000011)',s)+length('(000011)');
ii:=length(s)-si;
s:=copy(s,si,ii);
listbox1.Items.Add(S);
end;
finally
CloseFile(LogoFile);
end;

end;

'IP-Name'后面有': '
s:=copy(s,si+Length('IP-Name')+1,30);

不行哦,为什么结果总是:
d 24Mar04 11:35:43 - (0
好象没有pos到ip-name

我知道为什么列,因为s我定义了30个字符,ip-name不在前30字符,低级错误,谢谢各位老大!