Mal Memo y retorno de Carro al final.

[BrunoBsso]

Siempre que agregues algo a un TMemo se va a agregar un renglón vacío, para permitirte agregar otro elemento.
Una solución bastante simple que te puedo ofrecer es:

Código Delphi [-]
procedure TStrListToListBox(StrList:TStringList; var LB:TListBox);
var
  I:Integer;
begin
  for I := 0 to StrList.Count-1 do
    LB.Items.Append(StrList.Strings[i]);
end;

procedure GetMemoSinVacios(Memo:TMemo; var L:TStringList);
{ESTE PROC SE ENCARGA DE CREAR LA LISTA Y AGREGAR TODOS LOS ELEMENTOS
 SIN AGREGAR EL ELEMENTO FINAL QUE SERÍA UN RENGLÓN VACÍO}
var
  I:Integer;
begin
  L:=TStringList.Create;
  for I := 0 to Memo.Lines.Count-1 do
    L.Add(Memo.Lines.Strings[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
{ESTE PROC USA UN MEMO1 PARA CARGAR DATOS Y LOS DEVUELVE EN UN
 LISTBOX1 USANDO EL PROC GetMemoSinVacios}
var
  L:TStringList;
begin
  GetMemoSinVacios(Memo1,L);
  TStrListToListBox(L,ListBox1);
end;

Espero que se entienda y te sirva.
Puede ser que haya mejores soluciones, pero yo siempre utilizo esto para ese problema.
Saludos!

[*Caro*]

Hola Carmelo, prueba esto:

Código Delphi [-]
  Aux := Memo1.Text;
  Delete(Aux, Length(Aux)-1, 2);
  Memo1.Text := Aux;
  Memo1.SelStart := Length(Memo1.Text);
  Memo1.SetFocus;

Saluditos