bu kodları delphide uygulamak gerekırse nasıl yazmak lazım?