Can I display items from a listbox in a richedit in delphi language?

See more:

Delphi

Hi,
I would like to click on a item in a listbox and then have the item displayed in a richedit.
Thank You

What I have tried:

procedure TForm1.Button1Click(Sender: TObject);
var
sItem:string;
begin
sItem:=ListBox1.Items[0];
RichEdit1.Lines.Add(sItem);

end;