전다른방법으로...
더블클릭에 하시던지..클릭에하시던지..이벤트에...
var i:integer;

for i:= 0 to  listbox1.items.Count-1 do
     begin
        if listbox1.selected[i]=true then
        edit1.Text:=listbox1.items[i];
     end;

일케 하심 될꺼에여..

넵..글케하니깐 되씀다~~^0^
답변 감사드리구욤..
시간되심 밑에거 한번만 더 봐주시길 부탁드림다..

님께서 갈쳐주신 방법대루 해서
더블클릭시에 값이 들어가도록 하는데 성공해씀다..
(거의 베껴넣은 수준이지만..ㅡ.ㅡ;)
글구 한가지 더 하려구 하는데욤..
리스트박스에서 선택한 후(Click)에..
버튼을 누르면 edit1에 들어가게 하려 합니다..
저는 담과 가치 해씀다..


procedure Tform1.btn1Click(Sender: TObject);
var
i:integer;
begin
  for i:=0 to listbox1.items.count-1 do

    if listbox1.selected[i] = True then edit1.text:=listbox1.Items[i]

    else

       begin

         case messagedlg('아래 리스트에서 거래처를 선택하세요',mtwarning,[mbok],0) of
             id_ok: begin
                        listbox1.SetFocus;
                        exit;
                  end;
         end;

     end;

end;



이런식으로 했는데..
값이 안 넘어 가네욤..-_-;
어떻게 해두.. 메세지가 나옴다..
글구 값두 안 넘어 가구욤..
그러니깐. 무조건 else문으로 넘어간다는 거니깐..
if조건에 문제가 있는듯 싶은데... 그걸 어케 바꿔주야 할지.. -_-a

선택안된부분더..for로 비교 하니까..항상 메세지가 뜨고빠져나오는겁니다..
첫번째..리스트박스항목을 선택하지 않음..항상..메세지 뿌리고 빠져나가는거져...

var
i:integer;
chk:string;
begin
  chk:='n';
  for i:=0 to listbox1.items.count-1 do
  begin
    if listbox1.selected[i] = True then begin
    edit1.text:=listbox1.Items[i];
    chk:='y';
    end;
  end;
  if chk='n' then
    case messagedlg('아래 리스트에서 거래처를 선택하세요',mtwarning,[mbok],0) of
    id_ok: begin
           listbox1.SetFocus;
           exit;
     end;
  end;
end;
이렇게 하세여..chk변수 선언해서..
선택된것이 있으면......chk값을 바꿔주어..
메세지 창 실행을 막아 주네여..
다른방법도 있긴..한데...그냥..아래처럼.. 하세여..
if listbox1.Itemindex = -1 then begin
    case messagedlg('아래 리스트에서 거래처를 선택하세요',mtwarning,[mbok],0) of
    id_ok: begin
           listbox1.SetFocus;
           exit;
     end;
  end;
end;
  edit1.text:=listbox1.Items[listbox1.Itemindex] ;

end;

procedure Tform1.btn1Click(Sender: TObject);
begin
  if listbox1.Itemindex = -1 then begin
    case messagedlg('아래 리스트에서 거래처를 선택하세요',mtwarning,[mbok],0);
    listbox1.SetFocus;
    exit;
  end;

  edit1.text:=listbox1.Items[listbox1.Itemindex] ;
end;