You could set BorderStyle := bsDialog