Nonvcl Edit Text scrolllen

[EWeiss]

Ich hab ein problem bei meinem Nonvcl Edit Control
Wenn ich ein Wort eingebe dann mit dem Cursor bis zum ende scrolle bleibt dieser am Ende der EditBox stehen.
Der Text wird also nicht nach links verschoben so das ich längere Eingaben als die EditBox gesamtlänge eingeben kann.

Delphi-Quellcode:

function TSkinEdit.CreateWindow(ParentHandle: HWND): HWND;
begin
  LStyle := WS_CHILD or ES_NOHIDESEL;

  if Visible then
    LStyle := Lstyle or WS_VISIBLE;
  if VScroll then
    LStyle := Lstyle or WS_VSCROLL;
  if Multiline then
    LStyle := Lstyle or ES_MULTILINE;

  FHEdit := CreateWindowEx(WS_EX_TRANSPARENT, 'EDIT',
    '', LStyle, Left, Top, Width, Height, ParentHandle, DlgItemID,
    SkinEngine.skInstance, nil);

  if FHEdit <> 0 then
  begin
    SubClass(Handle);

  end;

  Result := FHEdit;
end;

Was fehlt hier?
Oder kann man grundsätzlich nicht über die länge des Edit, Text eingeben? (Doch beim VCL EDIT geht das mit dem Scrollen)
Hmm... Dann fehlt was.

Ich weiß das man die länge der Eingabe begrenzen kann
SendDlgItemMessage(hDlg, IDC_EDIT1, EM_SETLIMITTEXT, (WPARAM)50, 0);

Aber genau das möchte ich nicht finde aber nicht den weg um die begrenzung generell aufzuheben (nonvcl).

gruss