Como impedir que o Memo passe da linha 10, por exemplo...

uma soluão simples seria, no OnChange:

for I := Memo1.Lines.Count - 1 downto 10 do
Memo1.Lines.Delete(I);

não teria como a partir da linha 10 ficar read-only as demais linhas, para que o cara não digitasse mais nada. pois da maneira que vc colocou, as linhas seriam somente deletadas.

valeu...

//no evento onchange do memo coloque:

Var
I:Integer;
S:String;
begin
For I:=1 to DbMemo1.Lines.Count do
Begin
if Length(DbMemo1.Lines[I])>=80 then
Begin
S:=DbMemo1.Lines[I];
DbMemo1.Lines.Append(Copy(S,80,Length(s)));
End;
End;
// codigo acima o edit fica com oitenta caracteres por linha


//e no on exit do memo

if dbmemo1.Lines.Count>7 then
begin
ShowMessage(´O Campo Observação só pode ter no Máximo Sete linhas!´);
Dbmemo1.SetFocus;
end;

galerão, valeu pelas dicas, deu certo.......