Как вносить изменения только в одну строчку TMemo?

procedure TForm1.Button2Click(Sender: TObject);
begin
  chikl := strtoint(edit1.Text);

  for i := 0 to ListBox1.Items.Count - 1 do
    Memo1.Lines.Add(ListBox1.Items[i]);

  for li := 1 to chikl do
    memo2.Lines.Add('send_photo_file(chat_id,' + memo1.Lines.Text + ')');

  memo2.Lines.SaveToFile('Mail.txt');
end;

почему то вместо одной строчки из мемо1 он добавляет все разом