Substring Problem

[PhilmacFLy]

edit: Phils ist manchmal seeeehr dumm
edit2: Ich bekomm wieder nen leeren string

Delphi-Quellcode:

procedure Tform2.list;
var
i, LineEnd13, LineEnd10, LineEnd, Nickoffset, Channeloffset: Integer;
str: String;
begin
ChannelOffset := Pos('#', memo2.Lines.Text);
LineEnd13 := Pos(#13, Memo2.Lines.Text);
LineEnd10 := Pos(#10, Memo2.Lines.Text);
if ((LineEnd13 > LineEnd10) and (LineEnd10 > 0)) or (LineEnd13 = 0) then 
  LineEnd := LineEnd10 
else 
  LineEnd := LineEnd13;
NickOffset := PosEx(':', Memo2.Lines.Text, ChannelOffset) + 1;
str := Copy(Memo2.Lines.Text, NickOffset, LineEnd - NickOffset);

showMessage(str);
end;