请教怎么把Memo中的光标定位到首行首列

请问如何把Memo中的光标定位到首行首列啊
用Memo的onkeydown事件里，用回车提交了memo里的字符串，clear之后，发现光标停留在第二行首列，请问如何让光标回到首行首列啊
[解决办法]
本帖最后由 ccrun 于 2013-01-20 11:44:59 编辑

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if (Memo1->Lines->Text.Trim().Length() < 1)
    {
        Application->MessageBoxA("请输入内容后再发送信息！", NULL, MB_OK + 16);
    }
    else
    {
        // Send(Memo2->Lines->Text);
        Memo1->Lines->Clear();
        Memo1->SetFocus();
    }
}
//---------------------------------------
void __fastcall TForm1::Memo1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if ((Shift.Contains(ssCtrl)) && Key == VK_RETURN)
    {
        Key = 0;
        Application->ProcessMessages();

        Button1->Click();
    }
}