//   不同风格的光标
procedure   TForm1.Edit1MouseDown(Sender:   TObject;   Button:   TMouseButton;
    Shift:   TShiftState;   X,   Y:   Integer);
begin
        CreateCaret(Edit1.Handle,   0,   10,   4);
        ShowCaret(Edit1.Handle);
end;
//   用图像做光标
procedure   TForm1.Memo1MouseDown(Sender:   TObject;   Button:   TMouseButton;
    Shift:   TShiftState;   X,   Y:   Integer);
begin
        CreateCaret(Memo1.Handle,   Image1.Picture.Bitmap.Handle,   0,   0);
        ShowCaret(Memo1.Handle);
end;