Quizá le falte perfeccionarlo pero sería algo así :
EN en evento KeyPress del memo poner:
Código Delphi
[-]
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
const MAX_LENGTH=15;
var Line:Integer;
begin
Line := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
if not (Key in [#13,#8]) then
if Length(memo1.Lines[LPos])=MAX_LENGTH then
Key:=#13
end;
No lo he calado........ pero se ve bien