Как брать 1 или 2 строчку из memo

[misher]

как брать по строчке из Memo(тоесть 1 строка: что-то тут
2 строка: что-то тут)
Нужно взять вторую строку по нажатию на button?

[Прик]

//S : string;
S := Memo1.Lines[0]; //1-я строка
S := Memo1.Lines[1]; //2-я строка

[misher]

А как зделать так, чтобы если не подходит 1 строка брать 2?

[Прик]

Так и делать как сказано:

if Memo1.Lines[0] = <подходит> then
  S := Memo1.Lines[0]
else
  S := Memo1.Lines[1];

[misher]

Так и делать как сказано

Простите, моя ошибка я хотел сказать если не подходит первая, то брать вторую, а если и 2 не подходит, то брать третью, и так далее...

[Прик]

for I := 0 to Memo1.Lines.Count-1 do
  if Memo1.Lines[I] = <подходит> then begin
    S := Memo1.Lines[I];
    break;
  end;
  //где I : Integer; локальная переменная

[Stilet]

если не подходит первая

А каков критерий отбора?

[misher]

А каков критерий отбора?

В каком это смысле?
Я пробовал но нечего не получилось(у меня)...вобщем как сделать такое
Нажимаю на кнопку берется первая строка, допустим она не подходит к критерию которое я потом поставлю, берется 2 строка, она тоже не подходит, берем 3, она не подходит и так далее и потом какая-то строка подходит и выводится сообщение

showmessage('ура! это (тут что написано в той строке которая подошла) подошло');

[Serge_Bliznykov]

храните счётчик текущей строки где-нибудь глобально.
например:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Tag := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Memo1.Lines.Count = 0 then begin
    showmessage('Memo пуст!! Нечего тут жмакать!');
    Exit;
  end;
  if Button1.Tag>=Memo1.Lines.Count
    then Button1.Tag := 0;

  showmessage('Очередная строчка мемо:'+chr(10)+chr(13)+
            Memo1.Lines[Button1.Tag]);

  Button1.Tag := Button1.Tag + 1;
end;

[Stilet]

В каком это смысле?

Ну чо значит "не подходит"