function TForm1.sacarVocalesRepetidas(texto: string): string;
var
i: integer;
vocales: set of char;
ant: char;
begin
ant := #0;
vocales := ['a', 'e', 'i' ,'o' ,'u','A','E','I','O','U'];
result := '';
for i := 1 to length(texto) do
begin
if not (texto[i] in vocales) then
result := result + texto[i]
else
if texto[i] <> ant then result := result + texto[i];
ant := texto[i];
end;
end;