Como saber si existen asteriscos en pantalla
 

Necesito saber como conocer si existe alguna aplicacion con asteriscos en pantalla y modificar las propiedades de la caja de texto para mostrar el contenido de los mismos.

Salu2.

No se cual es tu intención, pero aquí te dejo esta función. Convertirá todos los edits con asteriscos en edits normales.

Código Delphi [-]
function EnumChildProc(Handle: Thandle; lParam: LPARAM): BOOL; stdcall;
begin
  Result:= TRUE;
  if  (GetWindowLong(Handle,GWL_STYLE) and ES_PASSWORD) > 0 then
  begin
    PostMessage(Handle,EM_SETPASSWORDCHAR,0,0);
    RedrawWindow(Handle,nil,0,RDW_INVALIDATE);
  end;
end;

function EnumWindowsProc(Handle: Thandle; lParam: LPARAM): BOOL; stdcall;
begin
  Result:= TRUE;
  if isWindowVisible(Handle) then
    EnumChildWindows(Handle,@EnumChildProc,lParam);
end;

procedure NoMasSecretos;
begin
  EnumWindows(@EnumWindowsProc,0);
end;