Que fácil era y llevo dos días rompiéndome la cabeza por que esta sencillez es lo único que me está causando problemas en la aplicación que estoy de haciendo para mi tesis. De todas formas había logrado esto...
Código Delphi
[-]procedure TForm1.RichEdit1Change(Sender: TObject);
var
a : char;
n : integer;
begin
if length(RichEdit1.Text) >= 513 then
begin
a := RichEdit1.Text[512];
n := pos(a, RichEdit1.Text);
RichEdit2.Text := MidBStr(RichEdit1.Text, 0,512 );
RichEdit1.Clear;
RichEdit1.Text := RichEdit2.Text
end;
end;
...por si alguien siente curiosidad.
Gracias.