Lines memo en una sola linea con un punto al final

[Delphi01]

Hola tengo este código :

procedure TForm1.Button1Click(Sender: TObject);
var d,i : integer;
begin
d:=memo1.lines.count;

for i:=1 to d-1 do

   memo1.lines[0]:=memo1.lines[0]+' ,'+memo1.lines[i];

for i:=1 to d do
   memo1.lines.Delete(1);
end;

eso funciona muy bien pero quiero añadir un punto '.' al final de la linea ...solo eso
Muchas gracias.

[Delphi01]

Ya... encontré la solución...

bastaba añadir

Código Delphi [-]
memo1.lines[0] := memo1.lines[0]+'.';