var
  nPos : Integer;
begin

nPos := POS(';', Edit1.Text);
// OR  nPos := LastDelimiter(';', Edit1.Text);
if nPos > 0 then
  Memo1.Lines.Text := Copy(Edit1.Text, nPos + 1, Length(Edit1.Text) - (nPos - 1));


hepburn 님이 쓰신 글 :
: 에디트 박스 컴포넌트로 입력된 스트링에 버튼을누르면
: 메모 컴포넌트로 출력하고 싶은데.
: 오류가 납니다.
: <디버거 exception notification >
:
:
: procedure TForm1.Button1Click(Sender: TObject);
:  var
:     I: Integer;
:     content : String;
:     buf : array of char;
:  begin
:     content := Edit1.Text;
:     CopyMemory(buf, @content[1], length(content));
:     for I := 1 to length(content) do    // Iterate
:     begin
:         Memo1.Text := buf[I];
:     end;    // for
:  end;
:
:
: 최종으로
: 문장에 특수 기호가 있으면
: ex) 하나둘;셋넷
: 메모컴포넌트에 셋넷만 출력하고 싶은데요.
: 조언 부탁드립니다.
:
:
: 혹시 c 에서 쓰는 strtok () 함수를 대체 할만한 델파이 함수좀 알려주세요