Delphi - Crear Boton siempre visible para emul el Alt+Tab

Crear Boton siempre visible para emul el Alt+Tab
Llevo tiempo buscando algun programa q me cree un boton el cual cuando io pulse sobre el, me emule la accion del alt+tab, no penseis q soy raro es para una pantalla tactil xD.

Espero vuestra ayuda. Muchisimas gracias de anticipado.

ha de rular bajo win 98

Logré hacer lo siguiente:

Esta parte del codigo coloca siempre al frente a nuestra aplicación, que solo contiene un botón

procedure TForm1.FormActivate(Sender: TObject);
begin
i:=3;{aqui vá el número de ventanas que hay activas actualmente, aun no se como obtener cuantas ventanas hay activas}
SetWindowPos(Form1.Handle,
HWND_TOPMOST,
0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
end;

Luego esto va en el botón que hará la simulación del Alt-Tab

procedure TForm1.Button1Click(Sender: TObject);
var j:integer;
begin
keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);
if i>0 then begin
for j:=1 to i-1 do begin
keybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), 0, 0);
keybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), KEYEVENTF_KEYUP, 0);
end;
end;
keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0);
end;

Entonces, al presionar el botón te cambiará de ventana en ventana, el unico inconveniente que tengo ahorita es que no se como obtener el número de ventanas activas al momento, si alguien puede decirnos como obtenerlas ya estaría solucionado el problema, pero hasta que no lo sepamos hay que poner el número de forma manual, en la variable "i" al inicio del códio.

Es en lo que te puedo ayudar

Gracias por tu ayuda. Yo tampoco consigo averiguar la cantidad de ventanas activas.