adicionar ponto e virgula no fim da linha dependendo da quantidade de espaços em um memo

[Daniel Jose Sobrinho 0]

Olá, eu tenho um memo em Delphi com as seguintes linhas

 

CALDO DE GALINHA

LEMON PEPPER

 

Preciso que fique com 10 ponto e virgula, já contando os que vão estar no espaço em branco assim:

 

CALDO;DE;GALINHA;;;;;;;;

LEMON;PEPPER;;;;;;;;;

 

Pra substituir os espaços em branco já usei o stringreplace e funcionou corretamente:

 

memo1.text := StringReplace(memo1.text,',',';',[rfReplaceAll]);