Прибавлять 1 к индексу строки

[Emperator12]

for i:=0 to Memo1.Lines.Count -1 do begin
IP:= Copy(Proxy[i],1,Pos(':',Proxy[i])-1); 
Port:= Copy(Proxy[i],Pos(':',Proxy[i])+1,Length(Proxy[i]));
end;

Это просто цикл. Мне нужно что бы бралась каждый раз новая строка только при каждом клике на кнопку.
Например:
Клик: строка1
Клик: строка2
Клик: строка3

И если строки закончились, то выдало бы что мол строки закончились.

[Serge_Bliznykov]

заведите ГЛОБАЛЬНУЮ переменную (например, опишите её там, где у Вас написано:

var
  Form1: TForm1;
  IndStr : integer;

на событие создания формы (FormCreate)
вставьте код:

IndStr := 0;

при нажатии на кнопку:

if  IndStr < Proxy.count then begin
    IP:= Copy(Proxy[IndStr],1,Pos(':',Proxy[IndStr])-1); 
    Port:= Copy(Proxy[IndStr],Pos(':',Proxy[IndStr])+1,Length(Proxy[IndStr]));
    Inc(IndStr);
end
else
    ShowMessage('А все строчки уже кончились!');