[marcoszorrilla]

Exigua y preclara respuesta espero:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if TcustomMemo(memo1).CaretPos.x > 10 then
  begin
  Key:=Chr(Vk_Delete);
  Key:=Chr(10);
  end;
end;

Y perdona si te he despertado.

Un Saludo.