Aqui te dejo un ejemplo de como lo puedes hacer, lo hice rápido por eso no hice el código más corto u optimizado, recuerda que esto fue hecho en Delphi 2009, espero que te sea compatible con delphi 6, o si no el fuente está ahí para que veas la instrucción y lo hagas en tu delphi
54LU2