Statement expected but 'VAR' found

[camaleonteplus]

Sto usando questo frammento di codice per far ripeterlo per il valore di Num.Text ma mi da questo errore:
Statement expected but 'VAR' found
come devo correggere il programma?

begin
if IP.IsOnline then
begin
IPTest.Caption := (IP.CurrentIP);
begin
var   I: Integer;
begin
Lista.Items.Clear;
for I := 0 to StrToInt(Num.Text)-1 do

[camaleonteplus]

risolto cera un begin in più