Para que la ventana este siempre encima te vale esto.
Código Delphi
[-]
procedure TForm2.Button1Click(Sender: TObject);
var
hNotepadWindow: HWND;
begin
hNotepadWindow := FindWindow('notepad', nil);
SetWindowPos(hNotepadWindow,
HWND_TOPMOST,
0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
end;
Para que tenga siempre el foco la ventana tendria que comportarse como un cuadro de dialogo, esto no se como se hace pero te puede dar pistas.
un saludo