Delphi：TMemo におけるカーソル行の文字列取得

■■■■　Delphi：TMemo におけるカーソル行の文字列取得　■■■■

送信者：富中

n: Integer;
begin
n := Memo1.Perform(EM_LINEFROMCHAR, -1, 0); // カーソル行番号
Edit1.Text := Memo1.Lines[n];
end;