[AIMor]

Вот тебе готовый код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
   S : String;
   I : Integer;

begin
   ComboBox1.Clear;
   For I:=0 To (ListBox1.Items.Count-1) Do
      begin
         S:=ListBox1.Items.Strings[i];
         If (Length(S)>4) Then Delete(S,1,Length(S)-4);
         ComboBox1.Items.Add(S);
      end;
end;

Изменяя цифру 4 будешь менять количество последних букв, которые надо отображать в ComboBox