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

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]);