Fórum Limpar espaços de um Edit #574652

Ola, estou com o seguinte problema: Preciso percorrer todos os TEdits, TMaskEdits e/ou TLabelEdtis em um form, e limpar os espaços em branco do inicio e fim de CADA um deles. Estou tentando assim:

for i := NomeDoForm.ComponentCount -1 downto 0 do
begin
if (NomeDoForm.Components[i] is TCustomEdit) then
begin
(NomeDoForm.Components[i] as TCustomEdit).text := TrimLeft((Sender as TEdit).Name);
(NomeDoForm.Components[i] as TCustomEdit).text := TrimRight((Sender as TEdit).Name);
end;
end;

Está compilando, mas na ora da execução desse código gera o errro: "INVALID CLASS TYPECAST"

Ajuda por favor!!