DELPHI如何批量给字符串加引号?

我的源数据中,有许多类似以下格式的字条串:
abcd,123456,efg,hij
kfjk,24657235,eih,ilk

他们的规律是:
数字部分的内容和长度都不一致,
字母部分的内容也不一致,但字母长度是一致的。

我要将他们输入数据库,但因为数据库中字符串类型数据前后必须加单引号,
所以我想将其批量转换成以下格式:
'abcd',123456,'efg','hij'
'kfjk',24657235,'eih','ilk'

请问delphi程序应该怎么写?谢谢。

delphi中2个引号会转义为1个引号
例:
'''123''123'
字符串内容则为
'123'123

直接字符串处理,还可以下个正则表达式