[Fat]

Buenas,

Tengo la siguiente situación, necesito eliminar el contenido las lineas de un memo a partir de que se encuentre una ','.
Ejemplo:

linea 1 'Empresa,departamento del trabajador'
y que quede solamente 'Empresa'
linea 2 'Puesto, del trabajador'
y que quede solamente 'Puesto'

Muchas gracias de antemano.

Saludos.