Sistema de votação em DELPHI

Oi galera blz ? sou novo no forum e em delphi tambem, então sem mais delongas, estou fazendo um software de votação, onde ele DIGITA EM UMA EDIT A LETRA DO CANDIDADO, exemplo:
candidato A , B ou C , X para voto NULO, enfim clicando no botão votar , em uma label vai surgir a mensagem, Você votou no Candidato A etc ... até ai tudo Otimo desenvolvi sem problema nenhuma, agora vem a complicação, eu como gosto de tudo interessante, coloquei um botão Resultado, onde ele deve clicar no botão e aparecer a soma de quantos votos o candidato A, B, C, OU X vai aparecer, entretanto não consigo fazer isso, vou por o codigo e se puderem me ajude, lembrando galera, não estou usando BANCO DE DADOS ainda, porque quero aprender a guardar o resultado nas variaveis

procedure TForm1.edtnomeChange(Sender: TObject);
begin

end;

procedure TForm1.btnlimparClick(Sender: TObject);

 edtnome.text:= '';
 edtidade.text:= '';
 edtvoto.text:= '';
 labelresult.Caption:='___';
end;

procedure TForm1.btnresultClick(Sender: TObject);

 lblresult1.caption:= (resultado);
end;

procedure TForm1.btnvotarClick(Sender: TObject);

var

 numero : integer;
 resultado : integer;

begin

numero := StrtoInt(edtvoto.text);
resultado:=StrtoInt(edtvoto.text);
 if (edtvoto.text = 'A') then
 labelresult.caption:=('Você votou no candidato A')
 resultado := (edtvoto.text + 1)
 else if (edtvoto.text = 'B') then
 labelresult.caption:=('Você votou no numero 2')
 else if (edtvoto.text = 'C') then
 labelresult.caption:=('você votou no numero 3')
 else if (edtvoto.text = 'D') then
 labelresult.caption:=('você votou no numero 4')
 else if (edtvoto.text = 'X') then
 showmessage('Voto NULO')
 else
 showmessage('voto não válido, por favor insira uma opção');

end;

end.

Valeu galera, e por favor se o erro estiver muito evidente, desculpa mais estou inciando rs ;s