Modified TEdit?

[Darkhog]

OK. I've got it to work a bit and I've got somewhat nice, dos-like underscore, but now curious thing happen: When I move mouse outside edit, caret moves back to top (had to move it bit downwards) and turns into um... overscore (is that even a word). Here's my code:

procedure TStoryProcessor.cmdMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var  point:TPoint;
begin
  //set caret
  CreateCaret(cmd.Handle,0,16,2);
  GetCaretPos(point);
  SetCaretPos(point.x,point.y+20);
  ShowCaret(cmd.Handle);

end;

I've even tried to put it into OnMouseLeave of edit, but to no result.