System Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETBORDER,0,nil,SPIF_SENDCHANGE);//En düşük "0" değerdir istediğiniz değeri 0 'ın yerine yazabilirsiniz
end;