Memo alterado juntar líneas impar y par

[bulc]

He aquí cómo quito líneas vacías en un Memo, y coloco las líneas pares con las impares. La secuencia original es: Linea vacía, Linea llena, Línea llena... y quiero añadir la tres a la dos. No sé si me explico.
El caso es que me gustaría usar un TStringList en lugar de dos TMemo. Seguro que se puede mejorar. Y es lo que propongo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); // Usa dos TMemo: Memo1 y Memo2.
Var
   I: Integer;
begin
Memo2.Lines.Clear;
if (Memo1.Lines[0]='') then  Memo1.Lines.Delete(0);  // Corchete y paréntesis.
for I:= 0 to Memo1.Lines.Count - 1 do
    if (Memo1.Lines[i]='')     then
         Memo1.Lines.Delete(I) ;
ShowMessage ('Lineas Memo1: ' +  IntToStr (Memo1.Lines.Count ) );
for I:= 0 to Memo1.Lines.Count - 1 do
    if ( I Mod 2 = 0 ) then
        Memo2.Lines.Add( Memo1.Lines[i] + Memo1.Lines[I+1]   ) ;
        // Funciona bastante bien.