[Kailon]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Byte;
  Delim: Char;
begin
  Delim := '|';
  Memo1.Clear;
  for I := 0 to ListBox1.Count - 1 do
    Memo1.Text := Memo1.Text + ListBox1.Items[i] + ' ' + ListBox2.Items[i] + Delim;
end;