Edit1.SelStart := Length(Edit1.Text); // и так работает SendMessage(Edit1.Handle, WM_KEYDOWN, VK_END, 0); // и так тоже