Segun lo que lei..creo que esto necesitas:
Código Delphi
[-]
procedure TForm1.ListBox1Click(Sender: TObject);
var c : String;
begin
c := ListBox1.Items.Strings[ListBox1.ItemIndex];
c [Length (c)] := '1';
ListBox1.Items.Strings[ListBox1.ItemIndex] := c;
end;
Espero te sirva.
SALUDOS