Substring Problem

[PhilmacFLy]

Delphi-Quellcode:

procedure Tform2.GenerateNicks(Linend: Integer);
var
LineEnd, Nickoffset, Channeloffset: Integer;
Nicks: string;
begin
ChannelOffset := Pos('#', Memo2.Lines.Text); 
NickOffset := PosEx(' ', Memo2.Lines.Text, ChannelOffset) + 1;
Nicks := Copy(Memo2.Lines.Text, NickOffset, LineEnd - NickOffset);
end;

procedure Tform2.list;
var
str: String;
i: Integer;
begin
for i := 0 to Memo2.Lines.Count - 1 do
  if Copy(Memo2.Lines[i]) = '353' then //Hier kommt der Fehler
    GenerateNicks(Memo2.Lines[i]);
end;

[DCC Fehler] tool_chat.pas(74): E2010 Inkompatible Typen: 'Integer' und 'string'