Chamada2

É o seguinte criei uma função que chama ela mesma só que está dando um erro: Usei a função while e não consegui. Me ajudem.

STACK OVERFLOW.
ela tem que ficar se chamando até eu mudar uma letra do edit e ai ela para.

Olha o codigo.

function TForm2.chamada(pA: string): string;
var Va:string;
begin
if pA = ´A´ then
begin
Va:=Form1.Edit1.text ;
chamada(Va);
end
else
begin

form2.ShowModal;
end;
end;