Синхронная прокрутка двух мемо

[falsebegin]

драстуйте кто знает как можно прокрутить сразу два мемо одновременно?

[p51x]

l:=SendMessage(memo1.Handle,EM_GETFIRSTVISIBLELINE ,0,0);
SendMessage(memo2.Handle,EM_LINESCROLL,0,l);

[falsebegin]

Сообщение от p51x

l:=SendMessage(memo1.Handle,EM_GETF IRSTVISIBLELINE ,0,0);
SendMessage(memo2.Handle,EM_LINESCR OLL,0,l);

а как его использовать? куда ставить? =)

[p51x]

В обработчик скрола одного из мемо, естественно.

[falsebegin]

че то не работает на XE7