function TControl.GetStayOnTop: Boolean;
begin
UpdateWndStyles;
Result := LongBool( fExStyle and WS_EX_TOPMOST);
end;

procedure TControl.SetStayOnTop(const Value: Boolean);
begin
if Value = GetStayOnTop then Exit; {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
if fHandle <> 0 then
if Value then
SetWindowPos( fHandle, HWND_TOPMOST, 0,0,0,0,
SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE )
else
SetWindowPos( fHandle, HWND_NOTOPMOST, 0,0,0,0,
SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE )
else
if Value then fExStyle := fExStyle or WS_EX_TOPMOST
else fExStyle := fExStyle and not WS_EX_TOPMOST;
end;

function TControl.UpdateWndStyles: PControl;
begin
Result := @Self;
if fHandle = 0 then Exit; {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
fStyle.Value := GetWindowLong( fHandle, GWL_STYLE );
fExStyle := GetWindowLong( fHandle, GWL_EXSTYLE );
fClsStyle := GetClassLong( fHandle, GCL_STYLE );
end;

Не принимай всё близко к - я шутя ;)

Интересно посмотреть на рожу америкоса, когда он это попытался бы прочитать через гугль переводчик.