procedure TForm1.IntercambiaEdit(Sender: TObject);
var
i,j : integer;
aux,cad1,cad2 : string;
begin
        cad1:='aeiou';   // Los caracteres de esta cadena seran sustituidos
        cad2:='AEIOU';   // por los equivalentes en esta...
        with (Sender as TEdit) do
        begin
                aux:=text;
                for i:=1 to length(aux) do
                for j:=1 to length(cad1) do
                if aux[i]=cad1[j] then aux[i]:=cad2[j];
                text:=aux;
                SelStart:=length(aux);
        end;
end;

Usar este procedimiento como onchange del edit en cuestion. En el ejemplo, como hacer un edit que solo acepte las vocales en mayusculas.