title: Do something with each line in a Delphi TMemo
body: <p>I need to read each line in <code>memo1.lines</code> and perform a specific action on it. I tried this:</p>
  
  <pre><code>procedure TForm1.Button2Click(Sender: TObject);
  var
    zoznam: TStringList;
    Line: string;
    i       : Integer;
  begin
    zoznam := TStringList.Create;
    zoznam.Assign(Memo1.Lines);
    for i := 0 to zoznam.Count-1 do
    begin
      edit1.Text := Memo1.Text;
      Button1.Click;
    end;
  end;
  </code></pre>
  
  <p>However, it takes every line into one string, and I want to read each line separately (read a line, do something, read the next line, do something, ...)</p>