Verificar registros um por um

Boa tarde pessoal,

estou criando um sistema que tem por função basicamente enviar emails de aviso para funcionarios da empresa.

A rotina de envio do email esta OK. Mas como ainda náo tenho muito conhecimento em Delphi nao sei como fazer para que o sistema faça isso automaticamente.

Basicamente funcionará assim, o usuário ira cadastrar as seguintes informações:

nome

email

assunto

status

O que eu quero basicamente é criar uma rotina que quando eu clique em um button verifique quais os registros estao com status "ATIVO" e envie um email para os endereços de email desses registros.

Eu até fiz esta rotina enviando um unico email para todos os registros que estivessem com status "ATIVO". Funciona legal, os usuários recebem o email, mas todos recebem um email igual, mas agora preciso que envie um email por vez para que eu possa colocar o assunto do email do respectivo usuário.

Lembrando que a rotina de envio do email eu tenho, só me falta a idéia de como verificar 1 registro por vez e enviar o email caso o status seja "ATIVO".