Bitmap - criando um caret (cursor)

// Para criar uma caret (cursor) de memo, edit personalizado:

//    1. Crie um bitmap monocromatico 16x16 com qualquer desenho

//    2. Digite o codigo baixo:

//Mostrar o cursor no memo:

  CreateCaret(Memo1.Handle, Image1.Picture.Bitmap.Handle, 0, 0);

  ShowCaret(Memo1.Handle);

// Voltar o cursor padrão

  CreateCaret(Edit1.Handle, 0, 10, 4);

  ShowCaret(Edit1.Handle);