Delphi заполнение StringGrid данными из memo

Добрый день, Уважаемые знатоки!
Прошу помочь!
Имеется memo с текстом в одну строку и с разделителем ;
Пример текста
09.09.09;Пластик; Домашний;
И теперь необходимо перетащить все это в StringGrid в одну строку.
Так же в строке может быть больше данных с разделителями.
Заранее спасибо!