Как прокрутить Memo, чтобы было видно последнюю строку ?

[Andrey]

Переписываю свою программу из Delphi в Lazarus, так как преобразовать проэкт из Делфи в Лазарус не удалось.
В Delphi код который привожу далее работал.
При нажатии на кнопку

Код: Выделить всё

procedure TForm1.SpeedButton15Click(Sender: TObject);
begin

добавляется новая строка в Memo2.

Код: Выделить всё

Memo2.Text:=Memo2.Text+#13#10+Memo1.Text;

и скролл в Memo2 прокручивается на последнюю стоку с текстом.

Код: Выделить всё

SendMessage(Memo2.Handle, WM_VSCROLL, SB_BOTTOM, 0);
end;

При компиляции в Lazarus компилятор останавливается на следующем коде:

Код: Выделить всё

SendMessage(Memo2.Handle, WM_VSCROLL, SB_BOTTOM, 0);

и выдаёт ошибки: Identifier not found "SendMessage"
Identifier not found "SB_BOTTOM"
Где и как мне обьявить эти идентификаторы чтобы код заработал, или какой другой код использовать чтобы скрол прокручивался на последнюю строку с текстом в Memo.

Windows 7 (64 bit) Lazarus 1.0

[tema]

Посмотри в дельфи какой цифири соответствует константа SB_BOTTOM и впиши в лазарус вместо неё цифирь

[Andrey]

Вместо SB_BOTTOM вписал цифру 7
Теперь компилятор опять останавливается на том же коде, но выдаёт уже только одну ошибку: Identifier not found "SendMessage"
Что и где ещё надо изменить или добавить в в коде ?

[m_guest]

Identifier not found "SendMessage"

Identifier not found "SB_BOTTOM"

Код: Выделить всё

uses JwaWinUser

[Ism]

Код: Выделить всё

Memo1.SelStart:= UTF8Length(Memo1.Text);
Memo1.SelLength:=0;
Memo1.SetFocus;     

[Andrey]

В общем после добавления

Код: Выделить всё

uses JwaWinUser

код

Код: Выделить всё

SendMessage(Memo2.Handle, WM_VSCROLL, 7, 0);

заработал.
Благодарю за подсказки.