Ajudem-me socorro.....

preciso ler a propriedade Text do componente Edit de qualquer tamanho e escrever apenas 40 caracteres lidos na propriedade Lines do componente MEMO, implementei o codigo abaixo mas nao estou consegindo contar os caracteres...., esta escrevendo o Text do Edit inteiro... Obrigado


procedure TfrmPrincipal.bbtnInserirMemoClick(Sender: TObject);
begin
if editInserirMemo.Text <> ´´ then
Memo1.Lines.Add(editInserirMemo.Text)
else
begin
ShowMessage(´Digite o texto!´);
editInserirMemo.SetFocus ;
end ;

end;