Fórum Quebra de linha em campo Memo... #262483

Boa tarde,

estou queimando neuronios p/ efetuar uma quebra de linha manual, pois com a opcao do campo Memo WordWrap:=True a quebra de linha ocorre de forma automatica, mas esse tipo de quebra esta interferindo no label de um relatorio(QReport) pois se o usuario nao usa CTRL+ENTER p/ quebrar o texto, no label nao apresenta quebra, caso contrario aparece...portanto estou com o seguinte codigo no envento OnChange do Componente:

[b:aca43af34e]procedure TFGRIndividual.ETextoChange(Sender: TObject);
var linha,coluna:integer;
begin
ActiveControl:=ETexto;
With ETexto do
begin
linha:= Perform(EM_LINEFROMCHAR,SelStart, 0);
coluna:= SelStart - Perform(EM_LINEINDEX, linha, 0);
if coluna=70 then
begin
// aqui esta minha duvida:qual comando utilizaria p/ posicionar o cursor na linha abaixo
end;
end;
end;[/b:aca43af34e]

Att, Maiki Perin.