Ayuda con tMemo

[chino150]

Esto es lo que e logrado gracias a su ayuda

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 i,cont,numVoc, numConso :Integer;
 const
 Alfabeto=['A'..'Z'];
 Vocales=['A','E','I','O','U','Á','É','Í','Ó','Ú'];
 Consonantes=Alfabeto-Vocales;
begin
NumVoc := 0;
NumConso := 0;
for i:= 0 to Length(Memo1.Text) - 1 do begin
 if UpCase(Memo1.Text[i]) in Vocales then
 Inc(NumVoc);
 if UpCase(Memo1.Text[i]) in Consonantes then
  Inc(NumConso);
Cont := Length( Memo1.Text);
 ShowMessage(' letras: '+(IntToStr(Cont)) + ' Vocales: '  + (IntToStr(NumVoc))  +'Consonantes:  '+ (IntToStr(NumConso))); ;
  end;
    end;
end.

pero debo de darle varios click al boton del mensaje para llegar al resultado final.