TEdit Modificado

[Behemot]

Ya logre hacer funcionar parte de lo que quiero lo hice con el TEdit pero me faltan el número de lineas y el color de la letra. Tratare de hacerlo con el TRichEdit. Lo otro es que lo hice controlando el objeto pero lo que necesito es heredar del objeto o mejor crear un componente pero no se como hacerlo.

[Behemot]

Aqui les mando el codigo:
///////////////////////////////////////////////////////////////

Código Delphi [-]
 
procedure TForm1.ControlMouseMoveEdit(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
iCaracteres, iLineaPos, iCaracterPos : Integer;
begin
  // ControlMouseMoveEdit() se activa en : OnMouseMove
  iCaracteres := (Sender as TEdit).Tag;
  iLineaPos := SendMessage((Sender as TEdit).Handle,EM_LINEFROMCHAR,(Sender as TEdit).SelStart,0);
  iCaracterPos := SendMessage((Sender as TEdit).Handle,EM_LINEINDEX,iLineaPos,0);
  iCaracterPos := (Sender as TEdit).SelStart-iCaracterPos;
  if iCaracterPos < iCaracteres then begin
    (Sender as TEdit).SelStart := iCaracteres;
  end;
end;

//////////////////////////////////////////////

//////////////////////////////////////////////

Código Delphi [-]
 
procedure TForm1.ControlEdit(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
iCaracteres, Lpos, Cpos : Integer;
begin
    // ControlEdit() se activa en : OnKeyDown y OnKeyUp del Edit
    iCaracteres := (Sender as TEdit).Tag;
    Lpos := SendMessage((Sender as TEdit).Handle,EM_LINEFROMCHAR,(Sender as TEdit).SelStart,0);
    Cpos := SendMessage((Sender as TEdit).Handle,EM_LINEINDEX,Lpos,0);
    CPos := (Sender as TEdit).SelStart-CPos;
    Label2.Caption:=IntToStr(Cpos);  //Columna
    if (key = VK_BACK) or (key = VK_DELETE) then begin
      if Cpos < iCaracteres then begin
        (Sender as TEdit).Undo;
        (Sender as TEdit).SelStart := iCaracteres;
      end;
    end;
    if (key = VK_HOME) then begin
      (Sender as TEdit).SelStart := (Sender as TEdit).Tag;
    end;
    if (key = VK_LEFT) or (key = VK_UP) then begin
      if Cpos < iCaracteres then
       (Sender as TEdit).SelStart := iCaracteres;
    end;
    if(Key >= 30) and (Key <= 122) and (Key <> 35) and (Key <> 36) and not ((Key >= 37) and (Key <= 40)) then begin
      if( Length((Sender as TEdit).Text) = (Sender as TEdit).MaxLength) then
            SelectNext(Sender as TWincontrol, true, true);
    end;
    if (key = VK_DOWN) then begin
      SelectNext(Sender as TWincontrol, true, true);
    end;
end;

/////////////////////////////////////////////

/////////////////////////////////////////////

Código Delphi [-]
 
procedure TForm1.ControlMouseMoveEdit(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
iCaracteres, iLineaPos, iCaracterPos : Integer;
begin
  // ControlMouseMoveEdit() se activa en : OnMouseMove
  iCaracteres := (Sender as TEdit).Tag;
  iLineaPos := SendMessage((Sender as TEdit).Handle,EM_LINEFROMCHAR,(Sender as TEdit).SelStart,0);
  iCaracterPos := SendMessage((Sender as TEdit).Handle,EM_LINEINDEX,iLineaPos,0);
  iCaracterPos := (Sender as TEdit).SelStart-iCaracterPos;
  if iCaracterPos < iCaracteres then begin
    (Sender as TEdit).SelStart := iCaracteres;
  end;
end;

////////////////////////////////////////////

[Behemot]

¿70 capturas qué significa? ¿70 componentes? No lo entiendo.

Si la idea es utilizar el TRichEdit en vez del TEdit en el proceso de captura de datos, pero la pregunta es si la memoria se carga mucho con este componente o se maneja igual al TEdit.