[lmikle]

1. Берем TRichEdit, берем код вставки рисунка в него, далее по желанию - делаешь автозамену или вставку по кнопке.
2. TEdit: Count := Length(Edit1.Text);
TMemo, TRichEdit: Count := Length(Memo1.Lines.Text);