[Aristarh Dark]

Господа, ну не создавайте себе лишних проблем, зачем усложнять код???

Задача 1

Код:

uses
  StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  ComboBox1.Clear;
  for i:=0 to ListBox1.Items.Count-1 do
    ComboBox1.Items.Append(RightStr(ListBox1.Items[i],4));
end;

Задача 2

Код:

ListBox1.Text:=ListBox1.Text+RichEdit1.SelText;