поверх всех окон

[Temka]

как запрограммировать кнопку, чтобы ваша программа была открыта поверх всех окон?

[BaronTreep]

Form1.FormStyle := fsStayOnTop; // Читай

Можно в свойствах формы (окошко слева)

[Kotofff]

Еще способ.
Есть две кнопки ... по нажатию на них пишешь обработчики :

// "включение" поверх остальных
procedure TForm1.Button1Click(Sender: TObject);
begin
with Form1 do SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

// "отключение" поверх остальных
procedure TForm1.Button2Click(Sender: TObject);
begin
with Form1 do SetWindowPos(Handle,HWND_NOTOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

[BaronTreep]

Собственно метод класса TForm в файле Form.pas определяет использование CreateWnd через SetWindowPos в зависимости от свойтва fsStayOnTop.

А SetWindowPos уже достает экспорт из user32.dll

[Kotofff]

Ничуть не против, но данный подход не вызывает перерисовки окна при изменении его места в Z-порядке, а просто "переносит" его (окно) наверх...
Если конечно же это кому-то нужно в задаче поставленной автором.