キャレット、又の名をカレットとも呼ばれるものについて質問です、
Edit等で出てくる 「|」形状のキャレットを変形させて■形状にしたくて以下のようにしました。

procedure TForm1.Edit1Change(Sender: TObject);
begin
　　CreateCaret(Edit1.Handle,0,Edit1.Font.Size-4,Abs(Edit1.Font.Height));
　　ShowCaret(Edit1.Handle);
end;

取りあえず、これでEdit1のフォントがMSゴシックだと、なんとなく変形できるのですが、
問題は、Editが画面上に大量にあるのです、大量にあるEdit全てにこの方法で書くのは
非効率的だと思うのですが、何か良い方法はないでしょうか。（本来は、最初に１回だけ
変更したら、フォーム内全てのキャレットが変更されて欲しかったですが・・・）