Перейти в конец memo

Memo1->Lines->SelStart= Memo1->Text.Length();

Memo1->SelStart

memo->SelStart=memo->Text.Length();

Memo1->SelStart=Memo1->Text.Length();
Memo1->Perform(EM_SCROLLCARET,0,0);

Memo1->SelStart=0;
Memo1->Perform(EM_SCROLLCARET,0,0);

void __fastcall TForm1::FormActivate(TObject *Sender)
{
memo->SelStart=memo->Text.Length();
memo->Perform(EM_SCROLLCARET,0,0);

Memo1->SelStart = -1;

// 1.
Memo1->Perform(WM_VSCROLL,SB_BOTTOM,SB_THUMBTRACK);
// 2.
Memo1->SelStart = MaxInt;
SendMessage(Memo1->Handle, EM_SCROLLCARET,0,0);
// 3.
Memo1->SelStart = Length(Memo1->Text);
// 4.
Memo1->SelStart = Memo1->Text.Length();

// 1.
memo->Perform(WM_VSCROLL,SB_BOTTOM,SB_THUMBTRACK);
// 2.
memo->SelStart = MaxInt;
SendMessage(memo->Handle, EM_SCROLLCARET,0,0);
// 3.
memo->SelStart = Length(memo->Text);
// 4.
memo->SelStart = memo->Text.Length()

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  while(Memo1->Lines->Count < 100)
    Memo1->Lines->Add("строка");
  // прокручиваем вниз
  Memo1->Perform(WM_VSCROLL, SB_BOTTOM, SB_THUMBTRACK);
}

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Memo1->Lines->LoadFromFile("1.txt");
  Memo1->Perform(WM_VSCROLL, SB_BOTTOM, SB_THUMBTRACK);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  Memo1->Lines->SaveToFile("1.txt");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormShow(TObject *Sender)
{
  SendMessage(Memo1->Handle, EM_LINESCROLL, 0, Memo1->Lines->Count);
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
  Memo1->SetFocus();
  long lg = Memo1->Text.Length();
  Memo1->SelStart = lg;
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
  Memo1->SetFocus();
  long lg = Memo1->Text.Length();
  Memo1->SelStart = lg;
  PostMessage(Form1->Memo1->Handle,WM_KEYDOWN,VK_LEFT,0);
  PostMessage(Form1->Memo1->Handle,WM_KEYDOWN,VK_RIGHT,0);
}

Memo1->SetFocus();
Memo1->SelStart=Memo1->Text.Length();
Memo1->Perform(EM_SCROLLCARET,0,0);

void __fastcall TForm1::FormActivate(TObject *Sender)
{
  Memo1->Lines->LoadFromFile("1.txt");
  Memo1->Perform(WM_VSCROLL, SB_BOTTOM, SB_THUMBTRACK);
}