Bloodguy
Twitter : @nicehide

아래처럼.

procedure TForm1.Button1Click(Sender: TObject);
var
  스트링: String;
  sList: TStringList;
  i: Integer;

begin
  sList:=TStringList.Create;
  try
    // '스트링'에 막 따옴표가 뒤죽박죽된 문자열이 들어있다고 가정하고...
    // 치환
    스트링:=StringReplace(스트링, '''', Chr(4), [rfReplaceAll]);
    스트링:=StringReplace(스트링, '"', Chr(5), [rfReplaceAll]);
    // Extract
    ExtractStrings(['$'], [], PWideChar(스트링), sList);

    for i:=0 to sList.Count-1 do begin
      // 재치환
      sList[i]:=StringReplace(sList[i], Chr(4), '''', [rfReplaceAll]);
      sList[i]:=StringReplace(sList[i], Chr(5), '"', [rfReplaceAll]);
      Memo1.Lines.Add(IntToStr(i)+' :: '+sList[i]);
    end;
  finally
    FreeAndNil(sList);
  end;
end;