String и integer

[zotox]

Есть код:

procedure TForm1.FormCreate(Sender: TObject);
var
  i,p,p2,p3: Integer;
begin
 for i:=0 to ListBox1.Items.Count do
  begin
   p:=pos('.txt',ListBox1.Items.Strings[i]);
   p2:=length(ListBox1.Items.Strings[i]);
   p3:=copy(ListBox1.Items.Strings[i],p2-p,p);
   ListBox1.Items.Add(p3);
  end;
end;

Что тут не так? Ругаеться на типы на присвоении copy

[mihali4]

Пользуйтесь хэлпом.
Какой тип возвращает

function Copy(S; Index, Count: Integer): string;

?
А переменной какого типа вы этот результат хотите присвоить?