Vis Øverst

men det er kun en form den skal vise det er ikke hele programmet kun en form

Du kan sætte FormStyle til fsStayOnTop

Ellers kan du bruge det her:

procedure StayOnTop(Handle: hwnd);
var
R:TRect;
begin
  GetWindowRect(Handle, R);
  SetWindowPos(Handle, HWND_TOPMOST, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, SWP_NOMOVE);
end;

procedure Normal(Handle: hwnd);
var
R:TRect;
begin
  GetWindowRect(Handle, R);
  SetWindowPos(Handle, HWND_NOTOPMOST, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, SWP_NOMOVE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StayOnTop(Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Normal(Handle);
end;