delphi7中选中memo1中的某行，得到改行的内容

可以使用以下代码实现：

var
  SelectedLine: Integer;
begin
  // 获取当前选中行号
  SelectedLine := Memo1.CaretPos.Y + 1;
  // 获取当前选中行的内容
  ShowMessage(Memo1.Lines[SelectedLine-1]);
end;

其中，`Memo1.CaretPos.Y` 获取当前光标所在行号（以0开始计数），加1后表示当前选中行号。`Memo1.Lines[SelectedLine-1]` 获取当前选中行的内容。你可以将这段代码放到事件处理程序中，比如一个按钮的`OnClick`事件中。