hsr//////////////////////////////////////////////
먼저 ListBox의 속성중 Style을 lbOwnerDrawFixed 나 lbOwnerDrawVariable 로 바꾸면 사용자가 직접 제어할수있습니다

1.선택된 인덱스에 폰트바꾸기(색,굵기등)
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
    if odSelected in State then begin
       ListBox1.Canvas.Font.Color := clAqua;
       ListBox1.Canvas.Font.Style := [fsBold];
    end;
    ListBox1.Canvas.TextRect(Rect, Rect.Left, Rect.Top , ListBox1.Items.Strings[Index]);
end;

2.저장후 다시 원 위치로가기
//타이머라고 가정한 함수
procedure TForm1.Button1Click(Sender: TObject);
var
    i, idx_pos : integer;
begin
    //미리 위치저장
    idx_pos := ListBox1.ItemIndex;

    //DB에 입력후 다시 뿌리기라고 가정
    ListBox1.Clear;
    for i := 1 to 10 do
        ListBox1.Items.Add(intToStr(i));

    //원 위치로감    
    ListBox1.ItemIndex := idx_pos;    
end;