Menejar un TypeCast con varios componentes

[dabas]

Valla,
os habreis dado cuenta que el codigo es igual (tanto copiar y pegar pa ná es tonteria)

para la salida es lo mismo pero:

procedure TForm1.tedit1Exit(Sender: TObject);