Como assim?

Sender é um objeto genérico, então caste para a classe desejada.
TEdit(Sender).Text := ´Teste´;


Qué isso, sem persistência não há aprendizado.

PS: ao invés de postar uma nova mensagem, apenas responda ela.

Ataliba