procedure TForm1.Button1Click(Sender: TObject);
Var
  m_TempList : TStringList;
begin
     m_TempList := TStringList.Create;
     m_TempList.Delimiter := '-';
     m_TempList.DelimitedText := Edit1.Text;

     Edit2.Text := m_TempList.Strings[0];
     Edit3.Text := m_TempList.Strings[1];
     Edit4.Text := m_TempList.Strings[2];

     m_TempList.Destroy;

end;

초보 님이 쓰신 글 :
: aaa.text 에 전화번호가 입력되어있습니다.
: '02-1111-2222'
: 이렇게 입력되어 있다고 한다면..
: 02
: 1111
: 2222
: 이 번호를 따로 가져오고 싶습니다.
:
: ParamByName('Rphone1').AsString 에는 02 의 값이..
: ParamByName('Rphone2').AsString 에는 1111 의 값이..
: ParamByName('Rphone3').AsString 에는 2222 의 값이..
:
: 이렇게 가져오고 싶은데, 어떻게 해야할까요..